OFFSET
1,1
COMMENTS
a(n) = A050636(n+1) for n >= 1.
MATHEMATICA
nxt[n_]:=Module[{k=1}, While[!IntegerQ[Sqrt[k*10^IntegerLength[n]+n]], k++]; k*10^IntegerLength[n]+n]; NestList[nxt, 64, 6] (* Harvey P. Dale, Dec 14 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, Nov 19 2001
STATUS
approved