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
Examples
13 + 17 = 30, hence 30 is in the sequence; 43 + 47 = 90, hence 90 is in the sequence.
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