|
%I #31 Mar 07 2021 00:56:09
%S 2,4,2,4,6,8,6,4,6,6,8,6,6,10,14,4,2,4,24,20,6,10,6,18,2,30,4,6,18,6,
%T 6,8,6,30,4,20,16,6,14,6,10,50,10,14,4,42,38,16,6,8,16,6,8,6,6,28,6,6,
%U 24,50,6,18,70,2,30,4,20,4,60,6,24,6,14,22,20,30
%N Distance between consecutive pairs of primes differing by 6 (p, p+6).
%H Vincenzo Librandi, <a href="/A227346/b227346.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SexyPrimes.html">Sexy Primes</a>. [The definition in this webpage is unsatisfactory, because it defines a "sexy prime" as a pair of primes.- _N. J. A. Sloane_, Mar 07 2021]
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeConstellation.html">Prime Constellation</a>
%F a(n) = A023201(n+1) - A023201(n). - _Zak Seidov_, Sep 20 2013
%p with(numtheory): pre:=0: for n from 1 to 3000 do if isprime(n) and isprime(n+6) then if pre<>0 then printf("%d, ", n-pre) fi: pre:=n fi od: # adapted from original program by C. Ronaldo for A053320
%t Differences[Select[Prime[Range[200]], PrimeQ[# + 6] &]] (* _T. D. Noe_, Jul 09 2013 *)
%Y Cf. A023201 (n and n+6 are primes).
%Y Cf. A053320 (differences for Cousin primes).
%K nonn
%O 1,1
%A _Luca Pezzullo_, Jul 08 2013
|
