A068807 Primes whose sum of digits is a power of 2.

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

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

Different from A178796.

Sequence in context: A184802 A023257 A178796 * A241732 A154812 A038894

Adjacent sequences: A068804 A068805 A068806 * A068808 A068809 A068810

Keyword

base,easy,nonn

Author

Amarnath Murthy, Mar 06 2002

Extensions

Extended by Ray Chandler, Dec 03 2009

Status

approved