%I A112787
%S A112787 10,11,15,51,87,312,348,573,798,1374,1599,2175,2400,2436,2661,2886,3462,
%T A112787 3687,4263,4488,5064,5289,5865,6441,6666,7242,7467,8043,8268,8844,9420,
%U A112787 9645,10221,10257,10482,10707,10932,11157,11382,11607,11832,12057,12282
%N A112787 Next term is the sum of previous term and the square of the sum of its 
               digits, with a(0) = 10.
%t A112787 a[0] = 10; a[n_] := a[n] = a[n - 1] + (Plus @@ IntegerDigits@a[n - 1])^2; 
               Table[ a[n], {n, 0, 42}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Jan 05 2006)
%Y A112787 Sequence in context: A043801 A043809 A043818 this_sequence A037307 A165265 
               A049345
%Y A112787 Adjacent sequences: A112784 A112785 A112786 this_sequence A112788 A112789 
               A112790
%K A112787 nonn
%O A112787 0,1
%A A112787 H. HINDI EL IDRISSI (latinovalentino2003(AT)yahoo.fr), Jan 03 2006