|
| |
|
|
A100810
|
|
a(n) = 0 if prime(n) + 2 = prime(n+1), otherwise 1.
|
|
3
| |
|
|
1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n) = 1 - A100821(n) = 1 - A062301(n+1).
|
|
|
EXAMPLE
| a(2) = 0 because prime(2) + 2 = 5 = prime(3).
a(3) = 0 because prime(3) + 2 = 7 = prime(4).
|
|
|
MATHEMATICA
| Table[If[Prime[n] + 2 == Prime[n + 1], 0, 1], {n, 120}] (Ray Chandler)
|
|
|
CROSSREFS
| Sequence in context: A065043 A121559 A004641 * A114591 A174889 A005171
Adjacent sequences: A100807 A100808 A100809 * A100811 A100812 A100813
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Jan 05 2005
|
|
|
EXTENSIONS
| Corrected and extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Jan 09 2005
|
| |
|
|
