A261456 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

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