OFFSET
0,3
EXAMPLE
0+1=1, 1+2=3, 3+3=6, 6+sqrt(4) = 8, ...
MATHEMATICA
Accumulate[Table[If[IntegerQ[Sqrt[n]], Sqrt[n], n], {n, 0, 53}]] (* James C. McMahon, Feb 22 2024 *)
PROG
(PARI) lista(nn) = s=0; for(x=0, nn, if(issquare(x), s+=sqrtint(x), s+=x); print1(s, ", ")) \\ Michel Marcus, Jul 02 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Jun 13 2005
STATUS
approved