A117610 A nonsense sequence.

7, 11, 13, 2, 4, 8, 14, 1, 11, 13, 2, 8, 14, 1, 7, 11, 2, 14, 1, 7, 11, 13, 2, 8, 11, 13, 2, 14, 7, 11, 2, 8, 11, 2, 14, 11, 2, 8, 13, 2, 11, 2, 2, 14, 11, 2, 8, 13, 13, 2, 14, 2, 8, 13, 11, 2, 14, 13, 13, 2, 14, 2, 2, 13, 13, 13, 2, 14, 2, 2, 13, 14

Offset

0,1

Links

Table of n, a(n) for n=0..71.

Mathematica

(*a-> Prime[4]to Prime[12 modulo 15 as the reference sequence*)
a = {7, 11, 13, 2, 4, 8, 14, 1};
(* finds permutations of the reference sequence to match the actual primes*)
M = Table[Table[If[Mod[Prime[i + n], 15] - a[[m]] == 0, 1, 0], {n, 1, 8}, {m, 1, 8}], {i, 4, 68, 8}];
v[0] = a;
v[n_] := v[n] = M[[1 + Mod[n, 8]]].v[n - 1]
a0 = Flatten[Table[v[n][[m]], {n, 0, 8}, {m, 1, 8}]]

Crossrefs

Sequence in context: A193301 A213250 A226689 * A176173 A200327 A206546

Adjacent sequences: A117607 A117608 A117609 * A117611 A117612 A117613

Keyword

nonn,uned,obsc,less

Author

Roger L. Bagula, Apr 06 2006

Status

approved