A059044 Initial primes of sets of 5 consecutive primes in arithmetic progression.
9843019, 37772429, 53868649, 71427757, 78364549, 79080577, 98150021, 99591433, 104436889, 106457509, 111267419, 121174811, 121174841, 168236119, 199450099, 203908891, 207068803, 216618187, 230952859, 234058871, 235524781, 253412317, 263651161, 268843033, 294485363, 296239787
Offset: 1
Keywords
References
- David Wells, The Penguin Dictionary of Curious and Interesting Numbers (Rev. ed. 1997), p. 181.
Links
- Zak Seidov, Table of n, a(n) for n = 1..241 (all terms up to 3*10^9)
- Jens K. Andersen, The Largest Known CPAP's, updated Sept. 2018
- OEIS wiki, Consecutive primes in arithmetic progression, updated Jan. 2020
- Index entries for sequences related to primes in arithmetic progressions
Crossrefs
Cf. A054800: start of 4 consecutive primes in arithmetic progression (CPAP-4).
Cf. A033451, A033447, A033448, A052242, A052243, A058252, A058323, A067388: start of CPAP-4 with common difference 6, 12, 18, ..., 48.
Cf. A052239: start of first CPAP-4 with common difference 6n.
Cf. A058362: start of 6 consecutive primes in arithmetic progression.
Cf. A006560: first prime to start a CPAP-n.
Programs
-
Mathematica
Select[Partition[Prime[Range[14000000]],5,1],Length[Union[ Differences[ #]]]==1&] (* Harvey P. Dale, Jun 22 2013 *)
-
PARI
A059044(n,p=2,c,g,P)={forprime(q=p+1,, if(p+g!=p+=g=q-p, next, q!=P+2*g, c=3, c++>4, print1(P-2*g,",");n--||break);P=q-g);P-2*g} \\ This does not impose the gap to be 30, but it happens to be the case for the first values. - M. F. Hasler, Oct 26 2018
Formula
Found by exhaustive search for 5 primes in arithmetic progression with all other intermediate numbers being composite.
Extensions
a(16)-a(22) from Donovan Johnson, Sep 05 2008
Reference added by Harvey P. Dale, Jun 22 2013
Edited (definition clarified, cross-references corrected and extended) by M. F. Hasler, Oct 26 2018
Comments