A079132 Primes such that iterated sum-of-digits (A038194) is even.

2, 11, 13, 17, 29, 31, 47, 53, 67, 71, 83, 89, 101, 103, 107, 137, 139, 157, 173, 179, 191, 193, 197, 211, 227, 229, 233, 251, 263, 269, 281, 283, 317, 337, 353, 359, 373, 389, 409, 431, 443, 449, 461, 463, 467, 479, 499, 503, 521, 557, 569, 571, 587, 593, 607

Offset: 1

Author

Klaus Brockhaus, Dec 28 2002

Keywords

• nonn
• easy
• base

Crossrefs

Cf. A078403, A079130, A079131.

Programs

Mathematica

Select[Prime[Range[120]], EvenQ[Mod[#, 9]] &] (* Bruno Berselli, Aug 31 2012 *)

PARI

forprime(p=2,600,if((p%9)%2==0,print1(p,",")))