|
Search: id:A093521
|
|
|
| A093521 |
|
Runs of 1's of lengths 1, prime(1), prime(2), prime(3), ... separated by 0's. |
|
+0
3
|
|
| 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Carl Sagan's "Contact" sequence.
|
|
REFERENCES
|
W. A. Dembski and J. M. Kushiner, Signs of Intelligence, Baker Book House Co., Grand Rapids, MI, p30-31, 2001,
Carl Sagan, Contact, Simon and Schuster, Chapter 4 "Prime Numbers," pgs 68-82, NY, 1985.
|
|
LINKS
|
Alex Kasman, Mathematical Fiction, Contact (1985).
Alex Kasman, How 'Contact' by Carl Sagan Ends.
Robin Dougherty, Salon, Robert Zemeckis' Contact.
|
|
MATHEMATICA
|
a = Table[1, {100}]; Do[ a[[Sum[Prime[i], {i, n}] + n]] = 0, {n, 1, 8}]; a
|
|
CROSSREFS
|
Cf. A000040, A000042, A005171, A031974, A055976, A056051, A066247, A091247.
Sequence in context: A088150 A117567 A117568 this_sequence A167364 A000480 A118251
Adjacent sequences: A093518 A093519 A093520 this_sequence A093522 A093523 A093524
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 29 2004
|
|
|
Search completed in 0.002 seconds
|
