A158332 - OEIS

%I #13 Apr 18 2021 02:18:26

%S 13,19,73,103,109,349,433,523,619,859,1063,1153,1429,1483,1489,1609,

%T 1669,1933,1999,2143,2239,2383,2659,3373,3463,3469,3559,3823,3919,

%U 4093,4129,4219,4273,4549,4639,4723,4789,4969,5023,5443,5869,6301,6703,6763

%N Greater of twin primes, each prime having an even digit sum.

%H Harvey P. Dale, <a href="/A158332/b158332.txt">Table of n, a(n) for n = 1..1000</a>

%e The twin primes 11 and 13 have digit sums 1+1=2 and 1+3=4 (both even), so 13 is a term.

%e The twin primes 17 and 19 have digit sums 1+7=8 and 1+9=10 (both even), so 19 is a term.

%e 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.

%t 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 *)

%Y Cf. A006512.

%K nonn,base,less

%O 1,1

%A _Juri-Stepan Gerasimov_, Mar 16 2009

%E 73, 1483, 2383, etc. added by _R. J. Mathar_, Oct 22 2009