Re: Easiest Mathematica algorhitm needed

```Artur wrote:
> Dear Mathematica Gurus,
> Who know which Matrhematica function uses to separate square free part
> of number.
> e.g.
> In[1]: Table[Sqrt[n!], {n, 1, 10}]
> Out[1]: {1, Sqrt[2], Sqrt[6], 2 Sqrt[6], 2 Sqrt[30], 12 Sqrt[5], 12
> Sqrt[35],
>  24 Sqrt[70], 72 Sqrt[70], 720 Sqrt[7]}
> What to do to take squre-free parts:
> {1, 2, 6, 6, 30, 5, 35, 70, 70, 7}
> or square parts
> {1, 1, 1, 2, 2, 12, 12, 24, 72, 720}
> Best wishes
> Artur

You'll need to factor the number, then use the exponents to figure out
square parts or square free parts, then find the remaining part from
that. Here is one way to do this.

squareAndSquareFreeParts[n_Integer] :=
{#,n/#^2}&
[Apply[Times,Map[#[[1]]^Floor[#[[2]]/2]&,FactorInteger[n]]]]

Daniel Lichtblau
Wolfram Research

```

• Prev by Date: Re: Easiest Mathematica algorhitm needed
• Next by Date: Re: naive question
• Previous by thread: Easiest Mathematica algorhitm needed
• Next by thread: Re: Easiest Mathematica algorhitm needed