|
|
|
|
#11 by Ray Chandler at Wed Oct 30 17:38:10 EDT 2019
|
|
|
|
#10 by Ray Chandler at Wed Oct 30 17:38:07 EDT 2019
|
| MATHEMATICA
|
f[l_List] := Append[l, l[[ -1]] + Max @@ Intersection[l, Divisors[Length[l]]]]; Nest[f, {1}, 60] (* ] (* _Ray Chandler, _, Feb 19 2007 *)
|
| STATUS
|
approved
editing
|
|
|
|
#9 by Ray Chandler at Fri Sep 27 12:32:24 EDT 2019
|
|
|
|
#8 by Ray Chandler at Fri Sep 27 12:32:21 EDT 2019
|
| MATHEMATICA
|
f[l_List] := Append[l, l[[ -1]] + Max @@ Intersection[l, Divisors[Length[l]]]]; Nest[f, {1}, 60] (*] (* Ray Chandler*), Feb 19 2007 *)
|
| STATUS
|
approved
editing
|
|
|
|
#7 by Charles R Greathouse IV at Wed Apr 09 10:13:03 EDT 2014
|
| AUTHOR
|
_Leroy Quet_ _, Feb 15 2007
|
|
|
Discussion
|
Wed Apr 09
| 10:13
| OEIS Server: https://oeis.org/edit/global/2146
|
|
|
|
#6 by N. J. A. Sloane at Wed Feb 05 20:18:30 EST 2014
|
| AUTHOR
|
_Leroy Quet _ Feb 15 2007
|
|
|
Discussion
|
Wed Feb 05
| 20:18
| OEIS Server: https://oeis.org/edit/global/2118
|
|
|
|
#5 by Russ Cox at Fri Mar 30 17:29:54 EDT 2012
|
| EXTENSIONS
|
Extended by _Ray Chandler (rayjchandler(AT)sbcglobal.net), _, Feb 19 2007
|
|
|
Discussion
|
Fri Mar 30
| 17:29
| OEIS Server: https://oeis.org/edit/global/154
|
|
|
|
#4 by N. J. A. Sloane at Sat Oct 02 03:00:00 EDT 2010
|
| LINKS
|
Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> (listed in lieu of email address)
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|
#3 by N. J. A. Sloane at Fri Jan 09 03:00:00 EST 2009
|
| LINKS
|
Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> (listed in lieu of email address)
|
| KEYWORD
|
nonn,new
nonn
|
| AUTHOR
|
Leroy Quet (qq-quet(AT)mindspring.com), Feb 15 2007
|
|
|
|
#2 by N. J. A. Sloane at Sun Jun 29 03:00:00 EDT 2008
|
| MATHEMATICA
|
f[l_List] := Append[l, l[[ -1]] + Max @@ Intersection[l, Divisors[Length[l]]]]; Nest[f, {1}, 60](*] (*Chandler*)
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|