OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Mar 16 2009
EXTENSIONS
73, 1483, 2383, etc. added by R. J. Mathar, Oct 22 2009
STATUS
approved