%I #8 Jul 31 2015 21:46:27
%S 10,11,15,51,87,312,348,573,798,1374,1599,2175,2400,2436,2661,2886,
%T 3462,3687,4263,4488,5064,5289,5865,6441,6666,7242,7467,8043,8268,
%U 8844,9420,9645,10221,10257,10482,10707,10932,11157,11382,11607,11832,12057,12282
%N Next term is the sum of previous term and the square of the sum of its decimal digits, with a(0) = 10.
%t 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 *)
%K nonn,base
%O 0,1
%A H. HINDI EL IDRISSI (latinovalentino2003(AT)yahoo.fr), Jan 03 2006
|