login
Lower prime of a difference of 6 (G-minor-6 primes) between consecutive primes of 6k+1 form.
3

%I #11 May 29 2018 00:50:28

%S 31,61,73,151,157,271,331,367,373,433,541,571,601,607,727,733,751,991,

%T 1033,1063,1117,1123,1231,1291,1321,1453,1543,1621,1657,1741,1747,

%U 1753,1777,1861,1987,2011,2131,2281,2287,2341,2371,2383,2467,2551,2671,2677

%N Lower prime of a difference of 6 (G-minor-6 primes) between consecutive primes of 6k+1 form.

%C The corresponding larger primes (G-major-6 primes) are also of the form 6k+1.

%H Harvey P. Dale, <a href="/A052158/b052158.txt">Table of n, a(n) for n = 1..1000</a>

%F A031924(n) == 1 (mod 6).

%e a(1)=31 since a(1) + 6 = 37 is the next prime and 31 = 6*5 + 1.

%t Transpose[Select[Partition[Prime[Range[400]],2,1],Last[#]-First[#] == 6 && Mod[First[#],6]==1&]][[1]] (* _Harvey P. Dale_, Oct 01 2013 *)

%Y Cf. A031924, A031925.

%K nonn

%O 1,1

%A _Labos Elemer_, Jan 25 2000