A128118 At the n-th iteration the sequence of integers from n down to 1 are appended to the sequence a(n) times.

1, 2, 1, 2, 1, 3, 2, 1, 4, 3, 2, 1, 4, 3, 2, 1, 5, 4, 3, 2, 1, 6, 5, 4, 3, 2, 1, 6, 5, 4, 3, 2, 1, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 8, 7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 10, 9, 8, 7, 6, 5, 4, 3

Offset

1,2

Links

Reed Kelly, Feb 15 2007, Table of n, a(n) for n = 1..555

Example

a(4) = 2 so 4,3,2,1,4,3,2,1 is added to the end of the sequence at the fourth iteration.

Mathematica

crr[n_] := Module[ { A = {1, 2, 1, 2, 1}, i, j }, For [ i = 3, i <= n, i++, A = Join[ A, Flatten[ Table[ Range[i, 1, -1], {A[[i]]} ]]]; ]; A ]

Crossrefs

Cf. A128117, A001462, A002260.

Sequence in context: A327525 A327540 A227687 * A205696 A029635 A375577

Adjacent sequences: A128115 A128116 A128117 * A128119 A128120 A128121

Keyword

easy,nonn

Author

Reed Kelly, Feb 15 2007

Status

approved