A156915 Fixed point of: 4-->1234, 3->123, 2-->12, 1->1

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

Links

Table of n, a(n) for n=1..105.

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

Cf. A073645

Sequence in context: A198185 A197889 A090204 * A212497 A072046 A123609

Adjacent sequences: A156912 A156913 A156914 * A156916 A156917 A156918

Keyword

nonn

Author

Benoit Cloitre, Feb 18 2009

Status

approved