A118721 Chen primes for which the sum of the digits is also a Chen prime.
2, 3, 5, 7, 11, 23, 29, 41, 47, 67, 83, 89, 101, 113, 131, 137, 139, 157, 179, 191, 197, 199, 227, 263, 269, 281, 311, 317, 337, 353, 359, 379, 401, 409, 443, 449, 461, 467, 487, 557, 571, 577, 599, 641, 647, 683, 719, 751, 797, 809, 821, 827, 829, 863, 881
Offset: 1
Examples
29 is in the sequence because (1) it is a Chen prime and (2) the sum of its digits 2+9=11 is also a Chen prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A109611.
Programs
-
Mathematica
With[{ch=Select[Prime[Range[200]],PrimeOmega[#+2]<3&]},Select[ch, MemberQ[ ch, Total[IntegerDigits[#]]]&]] (* Harvey P. Dale, May 10 2018 *)