OFFSET
1,2
LINKS
A. Frank & P. Jacqueroux, International Contest, 2001. Item 28
EXAMPLE
a(5) = 42^2 + (4 + 2) = 1770
MATHEMATICA
NestList[#^2+Total[IntegerDigits[#]]&, 1, 10] (* Harvey P. Dale, Nov 30 2011 *)
PROG
(PARI) a=1; for(n=1, 11, print1(a, ", "); sda=eval(Vec(Str(a))); a=a^2+sum(i=1, length(sda), sda[i]))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 30 2006
STATUS
approved