|
|
|
|
#12 by Alois P. Heinz at Wed Jun 27 17:58:01 EDT 2012
|
|
|
|
#11 by Alois P. Heinz at Wed Jun 27 17:55:50 EDT 2012
|
| LINKS
|
Alois P. Heinz, <a href="/A001367/b001367.txt">Table of n, a(n) for n = 0..11</a>
|
|
|
|
#10 by Alois P. Heinz at Wed Jun 27 17:54:24 EDT 2012
|
| DATA
|
1, 6, 40, 896, 294912, 23622320128, 119903836479112085504, 2552117751907038475975309555738261585920, 984232758517187661100353372573847216752794869657944794335389464067261601939456
|
| MAPLE
|
f:= proc(n) f(n):= `if`(n=2, 1, sqrt(n) *f(sqrt(n)) +n) end:
a:= n-> f(2^(2^n)):
seq (a(n), n=0..10); # Alois P. Heinz, Jun 27 2012
|
| STATUS
|
approved
editing
|
|
|
|
#9 by T. D. Noe at Wed Jun 27 17:41:13 EDT 2012
|
|
|
|
#8 by Sean A. Irvine at Wed Jun 27 17:18:29 EDT 2012
|
|
|
|
#7 by Sean A. Irvine at Wed Jun 27 17:18:23 EDT 2012
|
| NAME
|
Solution to f(12) = 1, f(n) = sqrt(n) f(sqrt(n)) + n at values n = 2^2^i.
|
| STATUS
|
approved
editing
|
|
|
|
#6 by N. J. A. Sloane at Fri Feb 24 03:00:00 EST 2006
|
| MATHEMATICA
|
f[ 2 ] := 1; f[ n_ ] := Sqrt[ n ]*f[ Sqrt[ n ] ] + n; Table[ f[ 2^2^i ], { ], {i, , 0, , 7} ]
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|
#5 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003
|
| KEYWORD
|
nonn,new
nonn
|
| AUTHOR
|
Alexander Sorg (sorg@(AT)bu.edu)
|
|
|
|
#4 by N. J. A. Sloane at Sat Dec 11 03:00:00 EST 1999
|
| NAME
|
Solution to $ f(1) = 1, f(n) = sqrt(n) f(sqrt(n)) + n$ at values $ n = 2 sup ^2 sup ^i$..
|
| MATHEMATICA
|
f[[ 2] := ] := 1; f[[ n_] := _ ] := Sqrt[[ n]* ]*f[[ Sqrt[[ n]] + ] ] + n; Table[[ f[[ 2^2^i], { ], {i, 0, 7}]} ]
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|
#3 by N. J. A. Sloane at Sun Jun 14 03:00:00 EDT 1998
|
| REFERENCES
|
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|