A052243 -id:A052243 - cp's OEIS frontend

A089220 Duplicate of A052243.

642427, 1058861, 3431903, 4176587, 4560121, 4721047, 5072269, 5145403

Offset: 1

dead

A054800 First term of balanced prime quartets: p(m+1)-p(m) = p(m+2)-p(m+1) = p(m+3)-p(m+2).

251, 1741, 3301, 5101, 5381, 6311, 6361, 12641, 13451, 14741, 15791, 15901, 17471, 18211, 19471, 23321, 26171, 30091, 30631, 53611, 56081, 62201, 63691, 71341, 74453, 75521, 76543, 77551, 78791, 80911, 82781, 83431, 84431, 89101, 89381

Offset: 1

Henry Bottomley, Apr 10 2000

nonn

This sequence is infinite if Dickson's conjecture holds. - Charles R Greathouse IV, Apr 23 2011

This is actually the complete list of primes starting a CPAP-4 (set of 4 consecutive primes in arithmetic progression). It equals A033451 for a(1..24), but it contains a(25) = 74453 which starts a CPAP-4 with common difference 18 (the first one with a difference > 6) and therefore is not in A033451. - M. F. Hasler, Oct 26 2018

			a(1) = 251 = prime(54) = A000040(54) and prime(55) - prime(54) = prime(56)-prime(55) = 6. - _Zak Seidov_, Apr 23 2011

Zak Seidov and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 4000 terms from Seidov)

Cf. A006562, A054801 .. A054840.
Cf. A006560 (first prime to start a CPAP-n).
Start of CPAP-4 with given common difference (in square brackets): A033451 [6], A033447 [12], A033448 [18], A052242 [24], A052243 [30], A058252 [36], A058323 [42], A067388 [48], A259224 [54], A210683 [60].

Select[Partition[Prime[Range[9000]],4,1],Length[Union[Differences[#]]] == 1&][[All,1]] (* Harvey P. Dale, Aug 08 2017 *)

p=2;q=3;r=5;forprime(s=7,1e4, t=s-r; if(t==r-q&&t==q-p, print1(p", ")); p=q;q=r;r=s) \\ Charles R Greathouse IV, Feb 14 2013

A033451 Initial prime in set of 4 consecutive primes with common difference 6.

Original entry on oeis.org

251, 1741, 3301, 5101, 5381, 6311, 6361, 12641, 13451, 14741, 15791, 15901, 17471, 18211, 19471, 23321, 26171, 30091, 30631, 53611, 56081, 62201, 63691, 71341, 75521, 77551, 78791, 80911, 82781, 83431, 84431, 89101, 89381, 91291, 94421

Offset: 1

Jeff Burch

nonn

Primes p such that p, p+6, p+12, p+18 are consecutive primes.
It is conjectured that there exist arbitrarily long sequences of consecutive primes in arithmetic progression. As of March 2013 the record is 10 primes.
Note that the Green and Tao reference is about arithmetic progressions that are not necessarily consecutive. - Michael B. Porter, Mar 05 2013
Subsequence of A023271. - R. J. Mathar, Nov 04 2006
All terms p == 1 (mod 10) and hence p+24 are always divisible by 5. - Zak Seidov, Jun 20 2015
Subsequence of A054800, with which is coincides up to a(24), but a(25) = A054800(26). - M. F. Hasler, Oct 26 2018

			251, 257, 263, 269 are consecutive primes: 257 = 251 + 6, 263 = 251 + 12, 269 = 251 + 18.

T. D. Noe, Table of n, a(n) for n = 1..1000
Jens Kruse Andersen, The Largest Known CPAP's
Ben Green and Terence Tao, The primes contain arbitrarily long arithmetic progressions, arXiv:math/0404188 [math.NT], 2004-2007.
B. Green and T. Tao, The primes contain arbitrarily long arithmetic progressions, Annals of Math. 167(2008), 481-547.
OEIS wiki, Consecutive primes in arithmetic progression: CPAP with given gap, updated Jan. 2020
Index entries for sequences related to primes in arithmetic progressions

Intersection of A054800 and A023271.
Cf. A090832, A090833, A090834, A090835, A090836, A090837, A090838, A090839.
Analogous sequences [with common difference in square brackets]: A033447 [12], A033448 [18], A052242 [24], A052243 [30], A058252 [36], A058323 [42], A067388[48].
Cf. A058362, A059044.
Subsequence of A047948.

N:=10^5: # to get all terms <= N.
Primes:=select(isprime,[seq(i,i=3..N+18,2)]):
Primes[select(t->[Primes[t+1]-Primes[t], Primes[t+2]-Primes[t+1],
Primes[t+3]-Primes[t+2]]=[6,6,6], [$1..nops(Primes)-3])]; # Muniru A Asiru, Aug 04 2017

A033451 = Reap[ For[p = 2, p < 100000, p = NextPrime[p], p2 = NextPrime[p]; If[p2 - p == 6, p3 = NextPrime[p2]; If[p3 - p2 == 6, p4 = NextPrime[p3]; If[p4 - p3 == 6, Sow[p]]]]]][[2, 1]] (* Jean-François Alcover, Jun 28 2012 *)
Transpose[Select[Partition[Prime[Range[16000]],4,1],Union[ Differences[ #]] == {6}&]][[1]] (* Harvey P. Dale, Jun 17 2014 *)

p=2;q=3;r=5;forprime(s=7,1e4,if(s-p==18 && s-q==12 && s-r==6, print1(p", ")); p=q;q=r;r=s) \\ Charles R Greathouse IV, Feb 14 2013

a(n) = A000040(A090832(n)). - Zak Seidov, Jun 20 2015

A006560 Smallest starting prime for n consecutive primes in arithmetic progression.

Original entry on oeis.org

2, 2, 3, 251, 9843019, 121174811

Offset: 1

N. J. A. Sloane

The primes following a(5) and a(6) occur at a(n)+30*k, k=0..(n-1). a(6) was found by Lander and Parkin. The next term requires a spacing >= 210. The expected size is a(7) > 10^21 (see link). - Hugo Pfoertner, Jun 25 2004
From Daniel Forgues, Jan 17 2011: (Start)
It is conjectured that there are arithmetic progressions of n consecutive primes for any n.
Common differences of first and smallest AP of n >= 1 consecutive primes: {0, 1, 2, 6, 30, 30, >= 210, >= 210, >= 210, >= 210, >= 2310, ...} (End)
a(7) <= 71137654873189893604531, found by P. Zimmermann, cf. J. K. Andersen link. - Bert Dobbelaere, Jul 27 2022

			First and smallest occurrence of n, n >= 1, consecutive primes in arithmetic progression:
a(1) = 2: (2) (degenerate arithmetic progression);
a(2) = 2: (2, 3) (degenerate arithmetic progression);
a(3) = 3: (3, 5, 7);
a(4) = 251: (251, 257, 263, 269);
a(5) = 9843019: (9843019, 9843049, 9843079, 9843109, 9843139);
a(6) = 121174811: (121174811, 121174841, 121174871, 121174901, 121174931, 121174961);

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Jens Kruse Andersen, The smallest known CPAP-k.
Chris K. Caldwell, Consecutive Primes in Arithmetic Progression
Harvey Dubner and Harry Nelson, Seven consecutive primes in arithmetic progression, Math. Comp., 66 (1997) 1743-1749. MR 98a:11122.
H. Dubner, T. Forbes, N. Lygeros, M. Mizony, H. Nelson, and P. Zimmermann, Ten consecutive primes in arithmetic progression, Math. Comp., Vol. 71, No. 239 (2002) 1323-1328.
Daniel Forgues, Wiki about consecutive primes in arithmetic progression.
L. J. Lander and T. R. Parkin, Consecutive primes in arithmetic progression, Math. Comp., Vol. 21, No. 99 (1967) p 489.
Manfred Toplic, The nine and ten primes project, 2004.
Index entries for sequences related to primes in arithmetic progressions

Cf. A005115, A006562, A093364, A126989.
a(5) corresponds to A052243(20) followed by A052243(21) 9843049.
Cf. A089180: indices primes a(n).
Cf. A054800: start of 4 consecutive primes in arithmetic progression (CPAP-4), A033451: start of CPAP-4 with common difference 6, A052239: start of first CPAP-4 with common difference 6n.
Cf. A059044: start of 5 consecutive primes in arithmetic progression, A210727: CPAP-5 with common difference 60.
Cf. A058362: start of 6 consecutive primes in arithmetic progression.

Join[{2},Table[SelectFirst[Partition[Prime[Range[691*10^4]],n,1], Length[ Union[ Differences[ #]]] == 1&][[1]],{n,2,6}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 10 2019 *)

a(n) = A000040(A089180(n)), or A089180(n) = A000720(a(n)). - M. F. Hasler, Oct 27 2018

Edited by Daniel Forgues, Jan 17 2011

A033447 Initial prime in set of 4 consecutive primes with common difference 12.

Original entry on oeis.org

111497, 258527, 286777, 318407, 332767, 341827, 358447, 439787, 473887, 480737, 495377, 634187, 647417, 658367, 663857, 703837, 732497, 816317, 819787, 827767, 843067, 862307, 937777, 970457, 970537, 1001267, 1012147, 1032727, 1052707, 1055827, 1104307, 1117877, 1164817, 1165837

Offset: 1

Jeff Burch

nonn

From Zak Seidov, Sep 30 2014: (Start)
All terms are == {7, 17} mod 30. There is no set of 5 consecutive primes in arithmetic progression with common difference 12 (because a(n)+48 is always divisible by 5).
Minimal first difference a(n+1)-a(n) = 40, and this occurs first at a(709) = 26930767, a(11357) = 655389367 and a(23339) = 1510368877; all a(n) are == 7 mod 30. (End)

Analogous sequences (start of CPAP-4 with common difference in square brackets): A033451 [6], this sequence [12], A033448 [18], A052242 [24], A052243 [30], A058252 [36], A058323 [42], A067388 [48], A259224 [54], A210683 [60].
Subsequence of A052188 and of A248085. - Zak Seidov, Jun 27 2015
Also subsequence of A054800: start of a CPAP-4, any common difference.

A033447 = Reap[For[p = 2, p < 1100000, p = NextPrime[p], p2 = NextPrime[p]; If[p2 - p == 12, p3 = NextPrime[p2]; If[p3 - p2 == 12, p4 = NextPrime[p3]; If[p4 - p3 == 12, Sow[p]]]]]][[2, 1]] (* Jean-François Alcover, Jun 28 2012 *)
Transpose[Select[Partition[Prime[Range[160000]],4,1],Union[ Differences[#]] =={12}&]][[1]] (* Harvey P. Dale, Jun 17 2014 *)

A033447(n, p=2, show_all=1, g=12,c,o)={forprime(q=p+1,, if(p+g!=p=q, next, q!=o+2*g, c=2, c++>3, show_all&& print1(o-g", "); n--||break); o=q-g); o-g} \\ Can be used as next(p)=A033447(1, p+1) to get the next term, e.g.:
p=0; A033447_vec=vector(30,i,p=A033447(1,p+1)) \\ M. F. Hasler, Oct 26 2018

More terms from Labos Elemer, Jan 31 2000

Definition clarified by Harvey P. Dale, Jun 17 2014

A033448 Initial prime in set of 4 consecutive primes in arithmetic progression with common difference 18.

Original entry on oeis.org

74453, 76543, 132893, 182243, 202823, 297403, 358793, 485923, 655453, 735883, 759113, 780613, 797833, 849143, 1260383, 1306033, 1442173, 1531093, 1534153, 1586953, 1691033, 1717063, 1877243, 1945763, 1973633, 2035513, 2067083, 2216803, 2266993, 2542513, 2556803, 2565203, 2805773

Offset: 1

Jeff Burch

nonn

Up to n = 10^4, the smallest difference a(n+1) - a(n) is 60 and occurs at n = 8571. - M. F. Hasler, Oct 26 2018

Each term is congruent to 3 mod 10 (as noted by Zak Seidov in the SeqFan email list). This means the three following consecutive primes are always congruent to 1, 9, and 7 mod 10, respectively (i.e., final digits for these primes are 3, 1, 9, 7, in that order). There cannot be a set of 5 such consecutive primes because a(n) + 4*18 == 5 (mod 10) so is a multiple of 5. - Rick L. Shepherd, Mar 27 2023

			{74453, 74471, 74489, 74507} is the first such set of 4 consecutive primes with common difference 18, so a(1) = 74453.

Analogous sequences (start of CPAP-4 with common difference in square brackets): A033451 [6], A033447 [12], A033448 [this: 18], A052242 [24], A052243 [30], A058252 [36], A058323 [42], A067388 [48], A259224 [54], A210683 [60].

Cf. A033450, A052189.

A033448 = Reap[For[p = 2, p < 2100000, p = NextPrime[p], p2 = NextPrime[p]; If[p2 - p == 18, p3 = NextPrime[p2]; If[p3 - p2 == 18, p4 = NextPrime[p3]; If[p4 - p3 == 18, Sow[p]]]]]][[2, 1]] (* Jean-François Alcover, Jun 28 2012 *)
Transpose[Select[Partition[Prime[Range[160000]],4,1],Union[ Differences[ #]] == {18}&]][[1]] (* Harvey P. Dale, Jun 17 2014 *)

A033448(n,show_all=1,g=18,p=2,o,c)={forprime(q=p+1,,if(p+g!=p=q,next, q!=o+2*g, c=3, c++>4, print1(o-g","); n--||break); o=q-g);o-g} \\ Can be used as nxt(p)=A033448(1,,,p+1), e.g.: {p=0;vector(20,i,p=nxt(p))} or {p=0;for(i=1,1e4,write("b.txt",i" "nxt(p)))}. - M. F. Hasler, Oct 26 2018

More terms from Labos Elemer, Jan 31 2000
Definition clarified by Harvey P. Dale, Jun 17 2014
Example reflecting final digits given by Rick L. Shepherd, Mar 27 2023

A059044 Initial primes of sets of 5 consecutive primes in arithmetic progression.

Original entry on oeis.org

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

Harvey Dubner (harvey(AT)dubner.com), Dec 18 2000

nonn

Each set has a constant difference of 30, for all of the terms listed so far.
It is conjectured that there exist arbitrarily long sequences of consecutive primes in arithmetic progression. As of December 2000, the record is 10 primes.
The first CPAP-5 with common difference 60 starts at 6182296037 ~ 6e9, cf. A210727. This sequence consists of first members of pairs of consecutive primes in A054800 (see also formula): a(1..6) = A054800({1555, 4555, 6123, 7695, 8306, 8371}). Conversely, pairs of consecutive primes in this sequence yield a term of A058362, i.e., they start a sequence of 6 consecutive primes in arithmetic progression (CPAP-6): e.g., the nearby values a(12) = 121174811, a(13) = 121174841 = a(12) + 30 indicate such a term, whence A006560(6) = A058362(1) = a(12). The first CPAP-6 with common difference 60 starts at 293826343073 ~ 3e11, cf. A210727. Longer CPAP's must have common difference >= 210. - M. F. Hasler, Oct 26 2018
About 500 initial terms of this sequence are the same as for the sequence "First of 5 consecutive primes separated by gaps of 30". The first 10^4 terms of A052243 give 281 terms of this sequence (up to ~ 3.34e9) with the same formula as the one using A054800, but as the above comment says, this will miss terms beyond twice that range. - M. F. Hasler, Jan 02 2020

David Wells, The Penguin Dictionary of Curious and Interesting Numbers (Rev. ed. 1997), p. 181.

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

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.

Select[Partition[Prime[Range[14000000]],5,1],Length[Union[ Differences[ #]]]==1&] (* Harvey P. Dale, Jun 22 2013 *)

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

Found by exhaustive search for 5 primes in arithmetic progression with all other intermediate numbers being composite.

A059044 = { A054800(i) | A054800(i+1) - A151800(A054800(i)) } with the nextprime function A151800(prime(k)) = prime(k+1) = prime(k) + A001223(k). - M. F. Hasler, Oct 27 2018, edited Jan 02 2020.

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

A052242 Initial prime in set of 4 consecutive primes in arithmetic progression with common difference 24.

Original entry on oeis.org

1397609, 1436339, 2270459, 4181669, 4231919, 4425599, 4650029, 4967329, 7124099, 8254049, 8431369, 9000379, 9149639, 11343509, 11584009, 11734249, 12867319, 13723009, 14461229, 14590159, 15587659, 15776239, 15932899

Offset: 1

Labos Elemer, Jan 31 2000

nonn

Analogous sequences [with common difference in square brackets]: A033451 [6], A033447 [12], A033448 [18], A052242 [24], A052243 [30].

A052242 = Reap[For[p = 2, p < 16000000, p = NextPrime[p], p2 = NextPrime[p]; If[p2 - p == 24, p3 = NextPrime[p2]; If[p3 - p2 == 24, p4 = NextPrime[p3]; If[p4 - p3 == 24, Print[p]; Sow[p]]]]]][[2, 1]] (* Jean-François Alcover, Jun 28 2012 *)
Transpose[Select[Partition[Prime[Range[1100000]],4,1],Union[ Differences[#]] == {24}&]][[1]] (* Harvey P. Dale, Jun 17 2014 *)

More terms from Harvey P. Dale, Nov 25 2000

Definition clarified by Harvey P. Dale, Jun 17 2014

A058252 Initial prime in set of 4 consecutive primes with common difference 36.

Original entry on oeis.org

5321191, 8606621, 9148351, 41675791, 43251251, 49820291, 51825461, 57791281, 66637721, 73114441, 74055851, 82584841, 86801801, 87620011, 112161451, 123720361, 125810021, 126265751, 136413721, 140969291, 152777291, 153348161

Offset: 1

Harvey P. Dale, Dec 05 2000

nonn

Subsequence of A052197. - R. J. Mathar, Apr 12 2008
There are no 5 consecutive primes with common gap 36. - Zak Seidov, Jan 17 2013
If the primes are not required to be consecutive, the sequence starts 31, 241, 281, 311, 751, 911, 941, 1151, 1451, 2621, 4021, ... - Michael B. Porter, Jan 17 2013

Analogous sequences [with common difference in square brackets]: A033451 [6], A033447 [12], A033448 [18], A052242 [24], A052243 [30]

Transpose[Select[Partition[Prime[Range[8700000]],4,1], Union[ Differences[#]] =={36}&]][[1]]

a(16)-a(22) from Donovan Johnson, Sep 05 2008

A058323 Initial prime in set of 4 consecutive primes with common gap 42.

Original entry on oeis.org

23921257, 32611897, 33215597, 35650007, 44201617, 49945837, 51616717, 70350487, 70687937, 74816107, 78789707, 86066047, 99641917, 101568287, 129031187, 146922077, 149568217, 151779517, 153921017, 156793337, 162881627

Offset: 1

Harvey P. Dale, Dec 12 2000

nonn

All a(n) == 7 mod 10. - Robert Israel, May 13 2015

Analogous sequences (with differences in square brackets): A033451 [6], A033447 [12], A033448 [18], A052242 [24], A052243 [30], A058252 [36].

d[x_] := Prime[x+1]-Prime[x] {k1=42, k2=42, k3=42} k=0 Do[If[Equal[d[n], k1]&&Equal[d[n+1], k2]&& Equal[d[n+2], k3], k=k+1; Print[{k, n, Prime[n], Prime[n+1], Prime[n+2], Prime[n+3]}]], {n, 1, 10000000}]
Transpose[Select[Partition[Prime[Range[9000000]], 4, 1], Union[Differences[#]]=={42}&]][[1]] (* Vincenzo Librandi, Jun 21 2015 *)

More terms from Labos Elemer, Jan 11 2002
Definition corrected by Robert Israel, May 13 2015
Definition edited by Zak Seidov, Jun 21 2015
Offset changed 0 -> 1 by Zak Seidov, Jun 21 2015

cp's OEIS Frontend

A089220 Duplicate of A052243.

Views

Author

Keywords

A054800 First term of balanced prime quartets: p(m+1)-p(m) = p(m+2)-p(m+1) = p(m+3)-p(m+2).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A033451 Initial prime in set of 4 consecutive primes with common difference 6.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A006560 Smallest starting prime for n consecutive primes in arithmetic progression.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A033447 Initial prime in set of 4 consecutive primes with common difference 12.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A033448 Initial prime in set of 4 consecutive primes in arithmetic progression with common difference 18.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A059044 Initial primes of sets of 5 consecutive primes in arithmetic progression.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A052242 Initial prime in set of 4 consecutive primes in arithmetic progression with common difference 24.

Views