login
A158332
Greater of twin primes, each prime having an even digit sum.
1
13, 19, 73, 103, 109, 349, 433, 523, 619, 859, 1063, 1153, 1429, 1483, 1489, 1609, 1669, 1933, 1999, 2143, 2239, 2383, 2659, 3373, 3463, 3469, 3559, 3823, 3919, 4093, 4129, 4219, 4273, 4549, 4639, 4723, 4789, 4969, 5023, 5443, 5869, 6301, 6703, 6763
OFFSET
1,1
LINKS
EXAMPLE
The twin primes 11 and 13 have digit sums 1+1=2 and 1+3=4 (both even), so 13 is a term.
The twin primes 17 and 19 have digit sums 1+7=8 and 1+9=10 (both even), so 19 is a term.
The twin primes 101 and 103 have digit sums 1+0+1=2 and 1+0+3=4 (both even), so 103 is a term.
MATHEMATICA
Select[Partition[Prime[Range[1000]], 2, 1], #[[2]]-#[[1]]==2&&AllTrue[ Total/@ (IntegerDigits/@#), EvenQ]&][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 04 2019 *)
CROSSREFS
Cf. A006512.
Sequence in context: A217065 A339917 A174343 * A241486 A180531 A271926
KEYWORD
nonn,base,less
AUTHOR
EXTENSIONS
73, 1483, 2383, etc. added by R. J. Mathar, Oct 22 2009
STATUS
approved