OFFSET
0,1
MATHEMATICA
a[0] = 10; a[n_] := a[n] = a[n - 1] + (Plus @@ IntegerDigits@a[n - 1])^2; Table[ a[n], {n, 0, 42}] (* Robert G. Wilson v, Jan 05 2006 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
H. HINDI EL IDRISSI (latinovalentino2003(AT)yahoo.fr), Jan 03 2006
STATUS
approved