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,1

Comments

Complement of A068807 with respect to primes.

Links

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

Mathematica

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

Prog

(PARI) lista(nn) = forprime (n=1, nn, sd = sumdigits(n); if (2^valuation(sd, 2) != sd, print1(n, ", "))); \\ Michel Marcus, Aug 19 2015
(Magma) [p: p in PrimesUpTo(400) | not PrimeDivisors(s) eq [2] where s is &+Intseq(p)]; // Vincenzo Librandi, Aug 19 2015

Crossrefs

Cf. A007605, A068807.

Sequence in context: A074106 A002261 A263257 * A154524 A184805 A079131

Adjacent sequences: A261453 A261454 A261455 * A261457 A261458 A261459

Keyword

nonn,base

Author

Altug Alkan, Aug 19 2015

Status

approved