OFFSET
1,1
COMMENTS
Subsequence of primes of A028838. - Michel Marcus, Aug 19 2015
LINKS
Aaron Toponce, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[ Prime@Range[ 300 ], IntegerQ[ Log[ 2, Plus@@IntegerDigits[ # ] ] ]& ] (* Ray Chandler, Dec 03 2009 *)
PROG
(Magma) [p: p in PrimesUpTo(2200) | PrimeDivisors(s) eq [2] where s is &+Intseq(p)]; // Bruno Berselli, Dec 26 2012
(PARI) lista(nn) = forprime (n=1, nn, sd = sumdigits(n); if (2^valuation(sd, 2) == sd, print1(n, ", "))); \\ Michel Marcus, Aug 19 2015
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Mar 06 2002
EXTENSIONS
Extended by Ray Chandler, Dec 03 2009
STATUS
approved