OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..80 (first 57 terms from Kevin Buzzard)
MAPLE
A007953 := proc(n) option remember: return add(d, d=convert(n, base, 10)): end: A068947 := proc(n) option remember: local k, p: if(n=1)then return 1: fi: k:=procname(n-1): p:=A007953(k^2): do k:=k+1: if(A007953(k^2)>p)then return k: fi: od: end: seq(A068947(n)^2, n=1..20); # Nathaniel Johnston, May 04 2011
MATHEMATICA
t = {}; s = 0; Do[If[(x = Total[IntegerDigits[y = n^2]]) > s, AppendTo[t, y]; s = x], {n, 150000}]; t (* Jayanta Basu, Aug 06 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Mar 06 2002
EXTENSIONS
More terms from Francois Jooste (phukraut(AT)hotmail.com), Mar 15 2002
STATUS
approved