

A037220


Summarize the previous term!.


1



0, 10, 1011, 1031, 102113, 10311213, 10411223, 1031221314, 1041222314, 1031321324, 1031223314, 1031223314, 1031223314, 1031223314, 1031223314, 1031223314, 1031223314, 1031223314, 1031223314, 1031223314, 1031223314
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


LINKS

Table of n, a(n) for n=0..20.


MAPLE

P:=proc(q, h) local a, b, c, k, n, x; x:=[h]; for n from 1 to q do
a:=convert(x[n], base, 10); b:=0; for k from 0 to 9 do c:=numboccur(a, k);
if c>0 then b:=b*10^(ilog10(c*10+k)+1)+c*10+k; fi; od; x:=[op(x), b];
od; print(0, op(x)); end: P(19, 10); # Paolo P. Lava, Aug 30 2018


CROSSREFS

Cf. A005151.
Sequence in context: A300571 A274069 A006937 * A179284 A138484 A022506
Adjacent sequences: A037217 A037218 A037219 * A037221 A037222 A037223


KEYWORD

nonn,base,easy


AUTHOR

N. J. A. Sloane.


STATUS

approved



