0,2
f[ 2 ] := 1; f[ n_ ] := Sqrt[ n ]*f[ Sqrt[ n ] ] + n; Table[ f[ 2^2^i ], {i, 0, 7} ]
Sequence in context: A196449 A186196 A196478 * A096671 A196712 A086803
Adjacent sequences: A001364 A001365 A001366 * A001368 A001369 A001370
nonn
Alexander Sorg (sorg(AT)bu.edu)