|
| |
|
|
A089784
|
|
Let b={1,3,7,9}; a(m) = Flatten[Table[Mod[Abs[10-Prime[n]],10]*10+b,{n,1,digits}]]: m=4*n.
|
|
2
| |
|
|
81, 83, 87, 89, 71, 73, 77, 79, 51, 53, 57, 59, 31, 33, 37, 39, 11, 13, 17, 19, 31, 33, 37, 39, 71, 73, 77, 79, 91, 93, 97, 99, 31, 33, 37, 39, 91, 93, 97, 99, 11, 13, 17, 19, 71, 73, 77, 79, 11, 13, 17, 19, 31, 33, 37, 39, 71, 73, 77, 79, 31, 33, 37, 39, 91, 93, 97, 99, 11
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 10's complement chaotic sequence between 10 and 100 with 24 elements, 14 prime and ten composite.
|
|
|
MATHEMATICA
| a={1, 3, 7, 9} digits=50 b=Flatten[Table[Mod[Abs[10-Prime[n]], 10]*10+a, {n, 1, digits}]]
|
|
|
CROSSREFS
| Sequence in context: A055390 A186472 A183984 * A186464 A184044 A124968
Adjacent sequences: A089781 A089782 A089783 * A089785 A089786 A089787
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 09 2004
|
| |
|
|
