login
A156915
Fixed point of: 4-->1234, 3->123, 2-->12, 1->1
0
4, 1, 2, 3, 4, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 1, 1, 2, 1, 1, 2, 1, 2, 3, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 2, 3, 1, 1, 1, 2, 1, 1, 2, 1, 2, 3, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 2, 3, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 2
OFFSET
1,1
MATHEMATICA
Flatten[NestList[#/.(Thread[#->Range[#]]&[Range[4]])&, {4}, 8]] (* Peter J. C. Moses, Apr 15 2013 *)
PROG
(PARI) v=[4]; for(n=1, 200, for(i=1, v[n], v=concat(v, i)); v); a(n)=v[n];
CROSSREFS
Sequence in context: A198185 A197889 A090204 * A212497 A072046 A123609
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 18 2009
STATUS
approved