This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A138018 #15 Jun 04 2025 23:20:21
%S A138018 30,90,210,240,330,390,450,600,630,930,1230,1290,1350,1560,1650,1710,
%T A138018 1740,1770,1920,2190,2430,2610,2850,2970,3180,3330,3390,3570,3750,
%U A138018 3990,4170,4410,4590,4860,4950,5280,5370,5520,5670,5910,6060,6330,6510,6690,6930,7200
%N A138018 Sum of consecutives primes p and q where p == 3 mod (10) and q == 7 mod (10).
%e A138018 13 + 17 = 30, hence 30 is in the sequence; 43 + 47 = 90, hence 90 is in the sequence.
%t A138018 Fs[k_]:=k+NextPrime[k];Fs/@Select[Prime[Range[503]],Mod[#,10]==3&&Mod[NextPrime[#],10]==7&] (* _James C. McMahon_, Jun 04 2025 *)
%o A138018 (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
%Y A138018 Cf. A135557.
%Y A138018 Subsequence of A001043.
%K A138018 easy,nonn
%O A138018 1,1
%A A138018 Daniele Corradetti (d.corradetti(AT)gmail.com), Feb 28 2008
%E A138018 Corrected and extended by _Zak Seidov_, Mar 01 2008
%E A138018 a(42)-a(46) from _James C. McMahon_, Jun 04 2025