A Wolfram Alpha widget toy

mshelikoff · 2014-12-11, 04:37

Hi aliquot sequence folks.

Yesterday I began to use:

NestWhileList[DivisorSigma[1,#] - #&, 138, Unequal[##,1] && Unequal[##]&, {1,Infinity}]

as WolframAlpha/Mathematica code that generates a complete aliquot sequence for 138 or any other (moderately easy) number including cycles and sequences that end in cycles. I've seen similar things published before but not for WolframAlpha. I added a "MatrixForm" wrapper and created a widget at:

http://www.wolframalpha.com/widgets/...78011f98134121

Like everything else at WolframAlpha, the computation just stops with no results if it hasn't finished after a few seconds, so the free widget is useless for the work that many of you guys deal with, and of course there's no database lookup or anything like that. But it's easy to plop the widget into web pages as javascript, and it can do some nifty things well like confirming 50-digit sociable cycles.

I think Stephen Wolfram wants me to start calling this stuff "Wolfram Language" instead of WolframAlpha/Mathematica code, but Wolfram Alpha (or at least the free version) contains such a limited subset of Mathematica that it sure doesn't seem like one language to me.

Similar terse code might be useful and perhaps fast for anyone running a full-and-recent version of Mathematica. Using Wolfram's computers through the pro-version of their Programming Cloud might also speed things up if anyone has access to those types of toys.

mshelikoff · 2015-05-15, 07:40

NestWhileList[Fold[#1 #2& , #[[1]]^#[[2]]+1& /@ Factor[#][[1]]]-#& , 1482, Unequal[##,1] && Unequal[##]&, {1,Infinity}]

can be used at Wolfram Alpha to generate the unitary aliquot sequence for the unitary sociable cycle starting with 1482. That messy code uses the formula for k=1 at http://mathworld.wolfram.com/Unitary...rFunction.html . I had to modify the mathematica code given at mathworld to meet the limitations of Wolfram Alpha. These aren't the aliquot sequences that folks in this forum usually play with. They're based on Sloane's A034448 at http://oeis.org/A034448 . Any lengthy computation leads to no results, and I have no idea if a different computation method would work faster, but Wolfram Alpha is popular among undergrads, so maybe it will see some use.

The widget toy with a Matrix Form wrapper and even terser code is at http://www.wolframalpha.com/widgets/...6831a652aa60f7 .

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Paypal donation widget	ewmayer	Mlucas	3	2017-09-02 23:20
Off to Alpha Centauri Bb ! ?	Uncwilly	Lounge	66	2012-10-24 17:36
Interval calculations with a given alpha	CRGreathouse	Math	10	2010-04-09 06:23
Mersenne Widget?	Damian	Lounge	12	2009-08-22 02:44
Wolfram Alpha	TimSorbet	Lounge	25	2009-05-23 11:03

2014-12-11, 04:37	#1
mshelikoff "Marc Shelikoff" Dec 2014 Cambridge, MA 15₁₀ Posts	A Wolfram Alpha widget toy Hi aliquot sequence folks. Yesterday I began to use: NestWhileList[DivisorSigma[1,#] - #&, 138, Unequal[##,1] && Unequal[##]&, {1,Infinity}] as WolframAlpha/Mathematica code that generates a complete aliquot sequence for 138 or any other (moderately easy) number including cycles and sequences that end in cycles. I've seen similar things published before but not for WolframAlpha. I added a "MatrixForm" wrapper and created a widget at: http://www.wolframalpha.com/widgets/...78011f98134121 Like everything else at WolframAlpha, the computation just stops with no results if it hasn't finished after a few seconds, so the free widget is useless for the work that many of you guys deal with, and of course there's no database lookup or anything like that. But it's easy to plop the widget into web pages as javascript, and it can do some nifty things well like confirming 50-digit sociable cycles. I think Stephen Wolfram wants me to start calling this stuff "Wolfram Language" instead of WolframAlpha/Mathematica code, but Wolfram Alpha (or at least the free version) contains such a limited subset of Mathematica that it sure doesn't seem like one language to me. Similar terse code might be useful and perhaps fast for anyone running a full-and-recent version of Mathematica. Using Wolfram's computers through the pro-version of their Programming Cloud might also speed things up if anyone has access to those types of toys.

2015-05-15, 07:40	#2
mshelikoff "Marc Shelikoff" Dec 2014 Cambridge, MA 3×5 Posts	Another Wolfram Alpha toy for unitary aliquot sequences NestWhileList[Fold[#1 #2& , #[[1]]^#[[2]]+1& /@ Factor[#][[1]]]-#& , 1482, Unequal[##,1] && Unequal[##]&, {1,Infinity}] can be used at Wolfram Alpha to generate the unitary aliquot sequence for the unitary sociable cycle starting with 1482. That messy code uses the formula for k=1 at http://mathworld.wolfram.com/Unitary...rFunction.html . I had to modify the mathematica code given at mathworld to meet the limitations of Wolfram Alpha. These aren't the aliquot sequences that folks in this forum usually play with. They're based on Sloane's A034448 at http://oeis.org/A034448 . Any lengthy computation leads to no results, and I have no idea if a different computation method would work faster, but Wolfram Alpha is popular among undergrads, so maybe it will see some use. The widget toy with a Matrix Form wrapper and even terser code is at http://www.wolframalpha.com/widgets/...6831a652aa60f7 .