|
|
|
|
0, 2, 4, 4, 4, 6, 5, 6, 14, 9, 9, 17, 14, 18, 16, 11, 23, 19, 23, 27, 25, 23, 28, 16, 33, 26, 25, 36, 36, 31, 40, 35, 37, 35, 39, 39, 33, 46, 51, 46, 48, 43, 46, 44, 44, 64, 66, 63, 53, 68, 60, 68, 53, 63, 52, 52, 62, 64, 68, 66, 66, 75, 80, 61, 84, 90, 88, 74, 70
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Number of primes of the form A002110(2n) - A007504(2n) and A002110(2n) + A007504(2n): 0, 1, 2, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ...
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MAPLE
|
P:= 1: S:= 0: p:= 0: a[0]:= 0:
for i from 1 to 100 do
p:= nextprime(p);
P:= P*p;
S:= S+p;
a[i]:= nops(select(isprime, {$(P-S+1)..(P+S-1)}));
od:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(13) corrected and a(19) onwards from Robert Israel, Jun 05 2015
|
|
STATUS
|
approved
|
|
|
|