OFFSET
1,1
LINKS
Daniel Mondot, Table of n, a(n) for n = 1..258
MATHEMATICA
lnds[n_]:=Module[{s=Floor[Sqrt[10^n-1]]}, While[!IntegerQ[Sqrt[Total[ IntegerDigits[ s^2]]]], s--]; s^2]; Array[lnds, 20] (* Harvey P. Dale, Mar 28 2013 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Daniel Mondot, Oct 08 2010
STATUS
approved