A226017 Primes such that sum of odd digits is also prime.

3, 5, 7, 11, 23, 43, 47, 67, 83, 101, 113, 131, 137, 139, 151, 157, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 263, 283, 311, 313, 317, 331, 337, 353, 359, 373, 379, 397, 443, 463, 467, 487, 557, 571, 577, 593, 599, 607, 643, 647, 683, 719, 733, 739

Offset: 1

Author

Jayanta Basu, May 23 2013

Keywords

• nonn
• base
• less

Comments

Primes such that A104260(n) is prime.

Examples

			181 is a member since sum of odd digits=2.
		

Crossrefs

Cf. A071649, A104260.

Programs

Mathematica

soQ[n_]:=PrimeQ[Total[Select[IntegerDigits[n],OddQ[#] &]]]; Select[Prime[Range[132]],soQ[#] &]