|
| |
|
|
A112787
|
|
Next term is the sum of previous term and the square of the sum of its decimal digits, with a(0) = 10.
|
|
0
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,1
|
|
|
LINKS
|
|
|
|
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
|
| |
|
|
