OFFSET
1,1
COMMENTS
Indices of primes in A095375.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Module[{nn=500, prs}, prs=Table[IntegerDigits[p, 2], {p, Prime[Range[nn]]}]; Select[Range[nn], PrimeQ[Total[Flatten[Take[prs, #]]]]&]] (* Harvey P. Dale, Aug 28 2021 *)
PROG
(PARI) s=0; for(n=1, 999, isprime(s+=norml2(binary(prime(n)))) & print1(n", "))
(PARI) s=n=0; forprime(p=2, 1e9, n++; if(isprime(s+=hammingweight(p)), print1(n", "))) \\ Charles R Greathouse IV, Mar 29 2013
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Nov 20 2009
EXTENSIONS
Terms corrected by Charles R Greathouse IV, Mar 29 2013
STATUS
approved