Services & ResourcesWolfram ForumsMathGroup Archive

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

Easiest Mathematica algorhitm needed

• To: mathgroup at smc.vnet.net
• Subject: [mg92793] Easiest Mathematica algorhitm needed
• From: Artur <grafix at csl.pl>
• Date: Mon, 13 Oct 2008 06:20:35 -0400 (EDT)
• References: <gcq09i$c30$1@smc.vnet.net> <200810120835.EAA08892@smc.vnet.net>
• Reply-to: grafix at csl.pl

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

• Follow-Ups:
  • Re: Easiest Mathematica algorhitm needed
    • From: Andrzej Kozlowski <akoz@mimuw.edu.pl>
  • Re: Easiest Mathematica algorhitm needed
    • From: Daniel Lichtblau <danl@wolfram.com>

• References:
  • Re: Executing external notebook
    • From: Peter Pein <petsie@dordos.net>