|
%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
|
