|
| |
|
|
A123137
|
|
a(n) = a(n-1)^2 + Sum of the digits of a(n-1), with a(1)=1.
|
|
0
| |
|
|
1, 2, 6, 42, 1770, 3132915, 9815156397249, 96337295102457969494768070, 9280874427658072275134580545332124401295103091525032, 86134630141957550628261532252390058231417831318795074704890644033088478051503964693639295413423482601219
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| A. Frank & P. Jacqueroux, International Contest, 2001. Item 28
|
|
|
EXAMPLE
| a(5) = 42^2 + (4 + 2) = 1770
|
|
|
MATHEMATICA
| NestList[#^2+Total[IntegerDigits[#]]&, 1, 10] (* From Harvey P. Dale, Nov 30 2011 *)
|
|
|
PROG
| (PARI) a=1; for(n=1, 11, print1(a, ", "); sda=eval(Vec(Str(a))); a=a^2+sum(i=1, length(sda), sda[i]))
|
|
|
CROSSREFS
| Sequence in context: A061062 A152479 A115961 * A014117 A188672 A054377
Adjacent sequences: A123134 A123135 A123136 * A123138 A123139 A123140
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 30 2006
|
| |
|
|
