|
|
A079054
|
|
a(n) = -1 if the closest prime to prime(n) is prime(n-1); = 1 if the closest prime to prime(n) is prime(n+1); = 0 if prime(n-1) and prime(n+1) are equally close to prime(n).
|
|
6
|
|
|
-1, 0, -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, 0, 1, -1, 0, 1, -1, 1, -1, 1, -1, 0, 1, 1, -1, -1, 1, -1, 1, 0, 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, -1, 1, -1, -1, 1, -1, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2
|
|
COMMENTS
|
There is no gap before 2, so we start with prime 3.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
prime(1) = 2 is closer to prime(2) = 3 than prime(3) = 5, so a(2) = -1.
|
|
MAPLE
|
a:=[]; M:=120; for n from 2 to M-1 do
q:=ithprime(n); p:=prevprime(q); r:=nextprime(q);
if q-p < r-q then a:=[op(a), -1];
elif q-p=r-q then a:=[op(a), 0]; else a:=[op(a), 1]; fi;
od:
a;
|
|
MATHEMATICA
|
Table[-Sign[Prime[n-1] - 2*Prime[n] + Prime[n+1]], {n, 2, 100}]
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|