OFFSET
1,1
LINKS
Indranil Ghosh, Table of n, a(n) for n = 1..10000
Wikipedia, Gray code.
MATHEMATICA
Select[Range[150], And @@ PrimeQ[DigitCount[BitXor[#, Floor[#/2]], 2]] &] (* Amiram Eldar, May 01 2021 *)
PROG
(PARI) is(n)=isprime(logint(n, 2)-hammingweight(bitxor(n, n>>1))+1) && isprime(hammingweight(bitxor(n, n>>1))) \\ Charles R Greathouse IV, Jan 13 2017
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Indranil Ghosh, Jan 13 2017
STATUS
approved