|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(2) = 0 because prime(2) + 2 = 5 = prime(3).
a(3) = 0 because prime(3) + 2 = 7 = prime(4).
|
|
MAPLE
|
a:= n-> `if`(isprime(ithprime(n)+2), 0, 1):
|
|
MATHEMATICA
|
Table[If[Prime[n] + 2 == Prime[n + 1], 0, 1], {n, 120}] (* Ray Chandler, Jan 09 2005 *)
If[#[[2]]-#[[1]]==2, 0, 1]&/@Partition[Prime[Range[110]], 2, 1] (* Harvey P. Dale, Mar 05 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|