proposed
approved
reviewed
editing
s:=1; j1:=[s];
f:=proc(n) local t1, t2;
t1:=digsum(n);
t2:=length(t1); n*10^t2 + t1; end;
for n from 1 to 24 do s:=f(s); j1:=[op(j1), s]; od:
j1;
allocated for N. J. A. Sloane
a(1) = 1; thereafter a(n+1) is obtained by prepending the digit-sum of a(n) to a(n).
1, 11, 211, 4211, 84211, 1684211, 231684211, 28231684211, 3828231684211, 493828231684211, 62493828231684211, 7062493828231684211, 777062493828231684211, 91777062493828231684211, 10191777062493828231684211, 10310191777062493828231684211
1,2
Cf. A372074.
allocated
nonn,base
N. J. A. Sloane, Jun 16 2024
Cf. A004207A372075.
