|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
a(5) = 42^2 + (4 + 2) = 1770
|
|
MATHEMATICA
|
NestList[#^2+Total[IntegerDigits[#]]&, 1, 10] (* 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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 30 2006
|
|
STATUS
|
approved
|
|
|
|