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

%I #11 Jan 05 2022 18:10:59

%S 23,47,53,83,131,167,173,233,251,257,263,353,383,443,503,557,563,587,

%T 593,647,653,677,941,947,971,977,1013,1097,1103,1181,1187,1217,1223,

%U 1283,1361,1367,1433,1493,1553,1601,1613,1901,1907,1973,2063,2207,2333

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

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

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

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

%e a(1)=23 since a(1) + 6 = 29 is the next prime and 29 = 6*4 + 5.

%t Select[Partition[Prime[Range[400]],2,1],#[[2]]-#[[1]]==6&&Mod[#,6]=={5,5}&][[All,1]] (* _Harvey P. Dale_, Jan 05 2022 *)

%Y Cf. A031924, A031925.

%K nonn

%O 1,1

%A _Labos Elemer_, Jan 25 2000