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

Links

Table of n, a(n) for n=1..55.

Mathematica

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

Prog

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

Crossrefs

Cf. A078403, A079130, A079131.

Sequence in context: A160950 A141168 A259394 * A184802 A023257 A178796

Adjacent sequences: A079129 A079130 A079131 * A079133 A079134 A079135

Keyword

nonn,easy,base

Author

Klaus Brockhaus, Dec 28 2002

Status

approved