|
Search: id:A089784
|
|
|
| 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. |
|
+0
3
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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: A090292 A075691 A055390 this_sequence A124968 A044865 A162529
Adjacent sequences: A089781 A089782 A089783 this_sequence A089785 A089786 A089787
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 09 2004
|
|
|
Search completed in 0.002 seconds
|
