A374591 - OEIS

%I #19 Aug 10 2024 21:39:43

%S 4,46,60,70,74,76,84,90,94,100,102,104,106,112,114,116,120,126,130,

%T 132,134,136,142,144,146,150,154,156,158,160,162,164,166,168,172,174,

%U 176,178,180,184,186,190,192,194,196,198,200,202,204,206,210,214,216,220

%N Even numbers that can be written as the sum of two isolated primes (A007510).

%e 4 = 2 + 2 is a term, as 2 is the smallest isolated prime.

%e 60 = 23 + 37 is the smallest term that is the sum of two distinct isolated primes.

%t Lim=220;ip=Select[Prime[Range[Lim]], NoneTrue[#+{2, -2}, PrimeQ]&] ;ipp[a_]:={a,a};Select[Union[Total/@Join[ipp/@ip,Subsets[ip,{2}]]],EvenQ[#]&&#<=Lim&] (* _James C. McMahon_, Aug 10 2024 *)

%Y Cf. A007510.

%K nonn

%O 1,1

%A _Marc Groz_, Jul 12 2024