OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:=1000: # to get all terms in the first N primes
Res:= NULL: w:= 0: p:= 0:
for i from 1 to N+1 do
q:= nextprime(p);
v:= convert(convert(q, base, 2), `+`) mod 2;
if w = 1 and v = 0 then Res:= Res, p fi;
p:= q; w:= v;
od:
Res; # Robert Israel, Dec 29 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Scott Lindhurst (ScottL(AT)alumni.princeton.edu)
Offset changed by Robert Israel, Dec 29 2016
STATUS
approved