A112787 Next term is the sum of previous term and the square of the sum of its decimal digits, with a(0) = 10.

10, 11, 15, 51, 87, 312, 348, 573, 798, 1374, 1599, 2175, 2400, 2436, 2661, 2886, 3462, 3687, 4263, 4488, 5064, 5289, 5865, 6441, 6666, 7242, 7467, 8043, 8268, 8844, 9420, 9645, 10221, 10257, 10482, 10707, 10932, 11157, 11382, 11607, 11832, 12057, 12282

Offset

0,1

Links

Table of n, a(n) for n=0..42.

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 *)
NestList[#+Total[IntegerDigits[#]]^2&, 10, 50] (* Harvey P. Dale, Dec 31 2025 *)

Crossrefs

Sequence in context: A043809 A043818 A373664 * A264719 A214792 A214897

Adjacent sequences: A112784 A112785 A112786 * A112788 A112789 A112790

Keyword

nonn,base

Author

H. HINDI EL IDRISSI (latinovalentino2003(AT)yahoo.fr), Jan 03 2006

Status

approved