A261456 Prime numbers whose sum of digits is not a power of 2.

3, 5, 7, 19, 23, 29, 37, 41, 43, 47, 59, 61, 67, 73, 83, 89, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 223, 227, 229, 239, 241, 257, 263, 269, 271, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 353, 359, 373

Offset: 1

Author

Altug Alkan, Aug 19 2015

Keywords

• nonn
• base

Comments

Complement of A068807 with respect to primes.

Links

• Felix Fröhlich, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007605, A068807.

Programs

Magma

[p: p in PrimesUpTo(400) | not PrimeDivisors(s) eq [2] where s is &+Intseq(p)]; // Vincenzo Librandi, Aug 19 2015

Mathematica

Select[Prime@Range[80], !IntegerQ[Log[2, Plus@@IntegerDigits[#]]] &] (* Vincenzo Librandi, Aug 19 2015 *)

PARI

lista(nn) = forprime (n=1, nn, sd = sumdigits(n); if (2^valuation(sd,2) != sd, print1(n, ", "))); \\ Michel Marcus, Aug 19 2015