A132725 A nonsense sequence.

6, 9, 11, 1, 4, 9, 12, 2, 4, 17, 11, 2, 4, 6, 9, 1, 4, 6, 8, 11, 4, 7, 9, 11, 2, 6, 9, 11, 1, 4, 9, 12, 2, 4, 17, 11, 2, 4, 6, 9, 1, 4, 6, 8, 11, 4, 7, 9, 11, 2, 6, 9, 11, 1, 4, 9, 12, 2, 4, 17, 11, 2, 4, 6, 9, 1, 4, 6, 8, 11, 4, 7, 9, 11, 2, 6, 9, 11, 1, 4, 9, 12, 2, 4, 17, 11, 2, 4, 6, 9, 1, 4, 6, 8

Offset

1,1

Comments

Obtained from the substitution given by the Mathematica program.

Links

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

Mathematica

s[1] = {2, 5, 7, 9, 12};
s[2] = {3, 6, 8, 10, 1};
s[3] = {4, 7, 9, 11, 2};
s[4] = {5, 8, 10, 12, 3};
s[5] = {6, 9, 11, 1, 4};
s[6] = {7, 10, 12, 2, 5};
s[7] = {8, 11, 1, 3, 6};
s[8] = {9, 12, 2, 4, 17};
s[9] = {10, 1, 3, 5, 8};
s[10] = {11, 2, 4, 6, 9};
s[11] = {12, 3, 5, 7, 10};
s[12] = {1, 4, 6, 8, 11};
t[a_] := Flatten[s /@ a];
p[0] = {4, 4, 4, 4, 9, 9, 4, 4, 11, 11, 4, 4};
p[1] = t[p[0]];
p[n_] := t[p[n - 1]];
p[2]

Crossrefs

Cf. A133451.

Sequence in context: A280666 A282937 A106248 * A338596 A121899 A357324

Adjacent sequences: A132722 A132723 A132724 * A132726 A132727 A132728

Keyword

nonn,less,dumb,obsc

Author

Roger L. Bagula, Nov 16 2007

Status

approved