A138018 Sum of consecutives primes p and q where p == 3 mod (10) and q == 7 mod (10).

30, 90, 210, 240, 330, 390, 450, 600, 630, 930, 1230, 1290, 1350, 1560, 1650, 1710, 1740, 1770, 1920, 2190, 2430, 2610, 2850, 2970, 3180, 3330, 3390, 3570, 3750, 3990, 4170, 4410, 4590, 4860, 4950, 5280, 5370, 5520, 5670, 5910, 6060, 6330, 6510, 6690, 6930, 7200

Offset: 1

Author

Daniele Corradetti (d.corradetti(AT)gmail.com), Feb 28 2008

Keywords

• easy
• nonn

Examples

			13 + 17 = 30, hence 30 is in the sequence; 43 + 47 = 90, hence 90 is in the sequence.
		

Crossrefs

Cf. A135557.

Subsequence of A001043.

Programs

Mathematica

Fs[k_]:=k+NextPrime[k];Fs/@Select[Prime[Range[503]],Mod[#,10]==3&&Mod[NextPrime[#],10]==7&] (* James C. McMahon, Jun 04 2025 *)

PARI

lista(nn) = {forprime(p=3, nn, if ((p % 10 == 3) && ((q=nextprime(p+1)) % 10 == 7), print1(p+q, ", ")););} \\ Michel Marcus, Jun 12 2013

Extensions

Corrected and extended by Zak Seidov, Mar 01 2008

a(42)-a(46) from James C. McMahon, Jun 04 2025