OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1000], EvenQ[DigitCount[Prime[ # ], 2][[1]]] && EvenQ[DigitCount[Prime[ # + 1], 2][[1]]] &] (* Stefan Steinerberger, Apr 21 2006 *)
PROG
(PARI) is(n)=my(p=prime(n)); hammingweight(p)%2==0 && hammingweight(nextprime(p+1))%2==0 \\ Charles R Greathouse IV, Mar 29 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Scott Lindhurst (ScottL(AT)alumni.princeton.edu)
STATUS
approved