[Date Index]
[Thread Index]
[Author Index]
Re: Easiest Mathematica algorhitm needed
*To*: mathgroup at smc.vnet.net
*Subject*: [mg92852] Re: Easiest Mathematica algorhitm needed
*From*: pratip <pratip.official at gmail.com>
*Date*: Wed, 15 Oct 2008 05:37:20 -0400 (EDT)
Hi,
Though it might be highly possible that I misunderstood your question but given your specified input the expected output you are looking for can be very easily generated as follows.
First for the square-free parts,
Table[Sqrt[n!], {n, 1, 10}] /. a_ Sqrt[b_] -> a /. Sqrt[b_] -> 1
The above command will give you the square-free parts.
{1, 1, 1, 2, 2, 12, 12, 24, 72, 720}
Now for the so called square part
Table[Sqrt[n!], {n, 1, 10}] /. a_ Sqrt[b_] -> b /. Sqrt[b_] -> b
The above command will give you
{1, 2, 6, 6, 30, 5, 35, 70, 70, 7}
Hope this helps. But if you are interested about "square free part of a positive integer" please go to
http://mathworld.wolfram.com/SquarefreePart.html
Hope this helps.
Regards,
Pratip
Prev by Date:
**Re: Conditional SetDelayed with Replacement**
Next by Date:
**Re: Re: Getting rid of those deprecated Do[] loops?**
Previous by thread:
**Re: Easiest Mathematica algorhitm needed**
Next by thread:
**Re: loops?**
| |