OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MATHEMATICA
Position[Table[If[EvenQ[DigitCount[n, 2, 1]], 1, 0], {n, Prime[Range[ 200]]}], 1]//Flatten (* Harvey P. Dale, Jul 11 2017 *)
PROG
(PARI) n=0; forprime(p=2, 97, n++; if(hammingweight(p)%2==0, print1(n", "))) \\ Charles R Greathouse IV, Sep 24 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended (and corrected) by Scott Lindhurst (ScottL(AT)alumni.princeton.edu)
STATUS
approved