OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
Primes:= [seq(ithprime(i), i=1..100)]:
Q:= map(t -> convert(convert(t, base, 2), `+`) mod 2, Primes):
DQ:= Q[2..-1]-Q[1..-2]:
select(t -> DQ[t] = 1, [$1..nops(DQ)]); # Robert Israel, Mar 27 2018
PROG
(PARI) isok(n) = my(p=prime(n)); !(hammingweight(p) % 2) && (hammingweight(nextprime(p+1)) % 2); \\ Michel Marcus, Mar 29 2018
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
EXTENSIONS
More terms from Erich Friedman
STATUS
approved