OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(1)=1; a(n) = n + a(floor(sqrt(n))) for n > 1.
MAPLE
f:= proc(n) option remember; n + procname(floor(sqrt(n))) end proc:
f(1):= 1:
map(f, [$1..100]); # Robert Israel, May 17 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Jul 20 2004
STATUS
approved