login
A133451
A nonsense sequence.
1
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.
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
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