|
| |
|
|
A121809
|
|
Primes modulo five partitioned sequenually in groups of four are then given the number of the order in which such groupings come up sequentially in an n X n X n X n vector.
|
|
0
| |
|
|
74, 237, 74, 178, 47, 211, 122, 32, 26, 177, 157, 159, 194, 178, 42, 37, 95, 220, 181, 241, 188, 74, 212, 179, 23, 198, 178, 157, 39, 202, 132, 220, 133, 230, 195, 127, 122, 38, 62, 26, 25, 124, 12, 195, 211, 110, 179, 130, 138, 178, 248, 178, 40, 18, 144, 159
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| There are 256 ways you can get a one dimensional tile of colors {red, green, blue, yellow}: these are used to index the appearance of modulo five appearance of such orderes in the primes. The most popular occurance is {4,5,2,3} at 5 for the first 256 prime partitions after the prime 5.
|
|
|
FORMULA
| a0[m]={1 + Mod[Prime[m], 5],1 + Mod[Prime[m+1], 5],1 + Mod[Prime[m+2], 5]1 + Mod[Prime[m+3], 5]} b0[n]={x[n],y[n],z[n],w[n]} a(m) = a0[m] indexed by b0[n]
|
|
|
EXAMPLE
| a[[4]]->b[[178]]={4, 5, 2, 3}
|
|
|
MATHEMATICA
| a = Partition[Table[1 + Mod[Prime[n], 5], {n, 4, 260}], 4]; b = Union[Flatten[Table[{x, y, z, t}, {x, 2, 5}, {y, 2, 5}, {z, 2, 5}, {t, 2, 5}], 3]]; f[n_, m_] := If[a[[m]] - b[[n]] == {0, 0, 0, 0}, n, {}] c=Flatten[Table[f[m, n], {n, Length[a]}, {m, Length[b]}]]
|
|
|
CROSSREFS
| Sequence in context: A204370 A204363 A051970 * A204361 A204354 A046833
Adjacent sequences: A121806 A121807 A121808 * A121810 A121811 A121812
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 29 2006
|
| |
|
|
