A133451 A nonsense sequence.

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

Offset

1,1

Comments

Obtained from the substitution given by the Mathematica program.

Links

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

Mathematica

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

Crossrefs

Cf. A132725.

Sequence in context: A076387 A193622 A265249 * A214331 A182483 A308818

Adjacent sequences: A133448 A133449 A133450 * A133452 A133453 A133454

Keyword

nonn,fini,less,obsc,dumb

Author

Roger L. Bagula, Nov 27 2007

Extensions

Data completely changed according to the specified Mathematica program by the OEIS editors, Oct 01, 2023

Status

approved