login
A068807
Primes whose sum of digits is a power of 2.
4
2, 11, 13, 17, 31, 53, 71, 79, 97, 101, 103, 107, 211, 233, 251, 277, 349, 367, 431, 439, 457, 503, 521, 547, 619, 673, 691, 701, 709, 727, 853, 907, 1021, 1061, 1069, 1087, 1151, 1201, 1223, 1249, 1429, 1447, 1483, 1511, 1601, 1609, 1627, 1663, 1753, 1861, 1933, 1951, 2011, 2141
OFFSET
1,1
COMMENTS
Subsequence of primes of A028838. - Michel Marcus, Aug 19 2015
LINKS
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
Different from A178796.
Sequence in context: A184802 A023257 A178796 * A241732 A154812 A038894
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Mar 06 2002
EXTENSIONS
Extended by Ray Chandler, Dec 03 2009
STATUS
approved