%I #11 Dec 05 2018 03:02:22
%S 1,1,2,1,3,1,4,1,5,1,6,1,7,1,8,1,9,1,10,11,1,12,13,14,15,2,16,2,17,2,
%T 18,2,3,19,2,4,20,2,5,21,2,6,3,22,2,7,3,8,2,9,3,10,23,11,3,4,12,13,14,
%U 3,5,3,15,3,6,24,3,16,7,25,26,8,4,27,17,28,9,29
%N a(1) = 1, and for any n > 0, a(n+1) is the number of occurrences of the n-th digit of the sequence among the first n digits of the sequence.
%C In other words, if we take the ordinal transform of the digits of the sequence and prepend the number 1, then we obtain the sequence again.
%C The number 1 appears 11 times.
%C Any number > 1 appears 10 times.
%C The sequence contains arbitrarily large runs of consecutive numbers.
%H Rémy Sigrist, <a href="/A322182/b322182.txt">Table of n, a(n) for n = 1..10000</a>
%H Rémy Sigrist, <a href="/A322182/a322182.png">Colored scatterplot of (n, a(n)) for n = 1..1000000</a> (where the color is function of the n-th digit of the sequence)
%e The first terms of the sequence, alongside the (n-1)-th digit of the sequence, are:
%e n a(n) (n-1)-th digit
%e --- ---- --------------
%e 1 1 N/A
%e 2 1 1
%e 3 2 1
%e 4 1 2
%e 5 3 1
%e 6 1 3
%e 7 4 1
%e 8 1 4
%e 9 5 1
%e 10 1 5
%e 11 6 1
%e 12 1 6
%e 13 7 1
%e 14 1 7
%e 15 8 1
%e 16 1 8
%e 17 9 1
%e 18 1 9
%e 19 10 1
%e 20 11 1
%e 21 1 0
%o (PARI) a = [1]; ord = vector(base = 10); for (k=1, 59, a = concat(a, apply(d -> ord[1+d]++, digits(a[k], #ord)))); print (a)
%Y Cf. A248034.
%K nonn,base
%O 1,3
%A _Rémy Sigrist_, Nov 30 2018