OFFSET
0,6
COMMENTS
Start with the highest value currently in the sequence and count down to zero.
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 0..10000
EXAMPLE
After the sequence is "0, 1, 0, 1, 1, 2, 0", we see one "2", three "1"s, and three "0"s, so we add 1, 2, 3, 1, 3, 0 to the sequence.
MATHEMATICA
s={0}; Do[s=Flatten[{s, {Count[s, #], #}&/@Range[Max[s], 0, -1]}], {60}]; s (* Peter J. C. Moses, Mar 21 2013 *)
PROG
(MATLAB) a=[0]; c=2; d=2; for j=1:7 for k=max(a):-1:0 a(c)=size(find(a(1:d-1)==k), 2); a(c+1)=k; c=c+2; end; d=c; end; a' % Nathaniel Johnston, Apr 25 2011
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
N. J. A. Sloane Jan 26 2003
EXTENSIONS
a(13) - a(75) from Nathaniel Johnston, Apr 25 2011
STATUS
approved