Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #24 Apr 12 2020 11:46:57
%S 10,18,30,42,78,90,138,162,198,210,222,258,330,390,450,462,558,618,
%T 630,702,762,798,882,918,930,978,1002,1230,1290,1350,1482,1518,1542,
%U 1650,1710,1722,1758,1770,1818,1878,1938,2022,2178,2190,2430,2562,2598,2610,2850,2862,2898,2970,2982,3102
%N Sum of cousin prime pairs.
%C All terms are divisible by two. Except for the first term, all terms are divisible by three.
%H Vincenzo Librandi, <a href="/A167607/b167607.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CousinPrimes.html">Cousin Primes</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Cousin_prime">Cousin Prime</a>
%e The sum of the cousin primes 223 and 227 is 450.
%t 2Select[Prime[Range[200]], PrimeQ[# + 4] &] + 4 (* _Alonso del Arte_, Feb 01 2013 *)
%t Join[{10},Total/@Select[Partition[Prime[Range[300]],2,1],#[[2]]-#[[1]] == 4&]] (* _Harvey P. Dale_, Apr 12 2020 *)
%Y Cf. A023200
%K nonn
%O 1,1
%A _Parthasarathy Nambi_, Nov 07 2009