

A128118


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


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A087467 A231568 A227687 * A205696 A029635 A203301
Adjacent sequences: A128115 A128116 A128117 * A128119 A128120 A128121


KEYWORD

easy,nonn


AUTHOR

Reed Kelly, Feb 15 2007


STATUS

approved



