|
| |
|
|
A093521
|
|
Runs of 1's of lengths 1, prime(1), prime(2), prime(3), ... separated by 0's.
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 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 * A167364 A000480 A118251
Adjacent sequences: A093518 A093519 A093520 * A093522 A093523 A093524
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 29 2004
|
| |
|
|
