OFFSET
1,2
COMMENTS
From 32nd term the sequence goes into a cycle of 2159 terms.
EXAMPLE
a(1) = 1 and 1^2 = 1 ('one 1') then a(2) = 11;
11^2 = 121 ('two 1, one 2') then a(3) = 2112. And so on.
MAPLE
P:=proc(q, h) local a, b, c, j, k, n; a:=h; print(a);
for n from 1 to q do a:=convert(a^2, base, 10);
b:=0; for k from 0 to 9 do c:=0; for j from 1 to nops(a) do
if a[j]=k then c:=c+1; fi; od;
if c>0 then b:=b*10^(ilog10(c*10+k)+1)+c*10+k; fi; od;
a:=b; print(a); od; end: P(10, 1); # Paolo P. Lava, Mar 22 2018
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Paolo P. Lava, Mar 22 2018
STATUS
approved