Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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