A054840 -id:A054840 - cp's OEIS frontend

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

A054819 First term of weak prime quartet: p(m+1)-p(m) < p(m+2)-p(m+1) < p(m+3)-p(m+2).

Original entry on oeis.org

17, 41, 79, 107, 227, 281, 311, 347, 349, 379, 397, 439, 461, 499, 569, 641, 673, 677, 827, 857, 881, 907, 1031, 1061, 1091, 1187, 1229, 1277, 1301, 1319, 1367, 1427, 1429, 1451, 1487, 1489, 1549, 1607, 1619, 1621, 1697, 1877, 1997, 2027, 2087, 2153

Offset: 1

Henry Bottomley, Apr 10 2000

nonn

			From _Gus Wiseman_, May 31 2020: (Start)
The first 10 strictly increasing prime gap quartets:
   17   19   23   29
   41   43   47   53
   79   83   89   97
  107  109  113  127
  227  229  233  239
  281  283  293  307
  311  313  317  331
  347  349  353  359
  349  353  359  367
  379  383  389  397
(End)

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A051635, A054800-A054840.
Prime gaps are A001223.
Second prime gaps are A036263.
Strictly decreasing prime gap quartets are A335278.
Strictly increasing prime gap quartets are A335277.
Equal prime gap quartets are A090832.
Weakly increasing prime gap quartets are A333383.
Weakly decreasing prime gap quartets are A333488.
Unequal prime gap quartets are A333490.
Partially unequal prime gap quartets are A333491.
Positions of adjacent equal prime gaps are A064113.
Positions of strict ascents in prime gaps are A258025.
Positions of strict descents in prime gaps are A258026.
Positions of adjacent unequal prime gaps are A333214.
Positions of weak ascents in prime gaps are A333230.
Positions of weak descents in prime gaps are A333231.
Lengths of maximal weakly decreasing sequences of prime gaps are A333212.
Lengths of maximal strictly increasing sequences of prime gaps are A333253.
Cf. A000040, A006560, A031217, A059044, A084758, A089180, A333253.

wpqQ[lst_]:=Module[{diffs=Differences[lst]},diffs[[1]]Harvey P. Dale, Jun 12 2012 *)
ReplaceList[Array[Prime,100],{_,x_,y_,z_,t_,_}/;y-xx] (* Gus Wiseman, May 31 2020 *)

a(n) = prime(A335277(n)). - Gus Wiseman, May 31 2020

A054804 First term of strong prime quartets: prime(m+1)-prime(m) > prime(m+2)-prime(m+1) > prime(m+3)-prime(m+2).

Original entry on oeis.org

31, 61, 89, 211, 271, 293, 449, 467, 607, 619, 709, 743, 839, 863, 919, 1069, 1291, 1409, 1439, 1459, 1531, 1637, 1657, 1669, 1723, 1759, 1777, 1831, 1847, 1861, 1979, 1987, 2039, 2131, 2311, 2357, 2371, 2447, 2459, 2477, 2503, 2521, 2557, 2593, 2633

Offset: 1

Henry Bottomley, Apr 10 2000

nonn

Primes preceding the first member of pairs of consecutive primes in A051634 ("strong primes"), see example. (A051634 lists the middle member of the triplets, here we list the first member of the quadruplets.) - M. F. Hasler, Oct 27 2018, corrected thanks to Gus Wiseman, Jun 01 2020.

			The first 10 strictly decreasing prime gap quartets:
   31  37  41  43
   61  67  71  73
   89  97 101 103
  211 223 227 229
  271 277 281 283
  293 307 311 313
  449 457 461 463
  467 479 487 491
  607 613 617 619
  619 631 641 643
For example, the primes (211,223,227,229) have differences (12,4,2), which are strictly decreasing, so 211 is in the sequence.
The second and third term of each quadruplet are consecutive terms in A051634: this is a characteristic property of this sequence. - _M. F. Hasler_, Jun 01 2020

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A051634, A054800-A054840.
Prime gaps are A001223.
Second prime gaps are A036263.
All of the following use prime indices rather than the primes themselves:
- Strictly decreasing prime gap quartets are A335278.
- Strictly increasing prime gap quartets are A335277.
- Equal prime gap quartets are A090832.
- Weakly increasing prime gap quartets are A333383.
- Weakly decreasing prime gap quartets are A333488.
- Unequal prime gap quartets are A333490.
- Partially unequal prime gap quartets are A333491.
- Adjacent equal prime gaps are A064113.
- Strict ascents in prime gaps are A258025.
- Strict descents in prime gaps are A258026.
- Adjacent unequal prime gaps are A333214.
- Weak ascents in prime gaps are A333230.
- Weak descents in prime gaps are A333231.
Maximal weakly increasing intervals of prime gaps are A333215.
Maximal strictly decreasing intervals of prime gaps are A333252.
Cf. also A000040, A006560, A031217, A054800, A054805, A054806, A054807, A059044, A084758, A089180, A333253, A335278.

primes:= select(isprime,[seq(i,i=3..10000,2)]):
L:=  primes[2..-1]-primes[1..-2]:
primes[select(t -> L[t+2] < L[t+1] and L[t+1] < L[t], [$1..nops(L)-2])]; # Robert Israel, Jun 28 2018

ReplaceList[Array[Prime,100],{_,x_,y_,z_,t_,_}/;y-x>z-y>t-z:>x] (* Gus Wiseman, May 31 2020 *)
Select[Partition[Prime[Range[400]],4,1],Max[Differences[#,2]]<0&][[All,1]] (* Harvey P. Dale, Jan 12 2023 *)

a(n) = prime(A335278(n)). - Gus Wiseman, May 31 2020

A054803 Fourth term of balanced prime quartets: p(m-2)-p(m-3) = p(m-1)-p(m-2) = p(m)-p(m-1).

Original entry on oeis.org

269, 1759, 3319, 5119, 5399, 6329, 6379, 12659, 13469, 14759, 15809, 15919, 17489, 18229, 19489, 23339, 26189, 30109, 30649, 53629, 56099, 62219, 63709, 71359, 74507, 75539, 76597, 77569, 78809, 80929, 82799, 83449, 84449, 89119, 89399

Offset: 1

Henry Bottomley, Apr 10 2000

nonn

Harvey P. Dale, Table of n, a(n) for n = 1..2000

Cf. A006562, A054800-A054840, A181424.

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

A054818 Sixth term of strong prime sextets: p(m-4)-p(m-5) > p(m-3)-p(m-4) > p(m-2)-p(m-3) > p(m-1)-p(m-2) > p(m)-p(m-1).

Original entry on oeis.org

1873, 2543, 3463, 9623, 21493, 23021, 25247, 26113, 32191, 33413, 33941, 39107, 40823, 41233, 44269, 47297, 48823, 55903, 57793, 67049, 70123, 74297, 74717, 74719, 75167, 75169, 83003, 84319, 87881, 88427, 88663, 103813, 103919

Offset: 0

Henry Bottomley, Apr 10 2000

nonn

Cf. A051634, A054800-A054840.

spsQ[lst_List]:=Module[{d=Differences[lst]},d[[1]]>d[[2]]>d[[3]]> d[[4]]> d[[5]]]; [Select[Partition[Prime[Range[10000]],6,1],spsQ]][[6]] (* Harvey P. Dale, Jul 04 2011 *)

A054805 Second term of strong prime quartets: prime(m+1)-prime(m) > prime(m+2)-prime(m+1) > prime(m+3)-prime(m+2).

Original entry on oeis.org

37, 67, 97, 223, 277, 307, 457, 479, 613, 631, 719, 751, 853, 877, 929, 1087, 1297, 1423, 1447, 1471, 1543, 1657, 1663, 1693, 1733, 1777, 1783, 1847, 1861, 1867, 1987, 1993, 2053, 2137, 2333, 2371, 2377, 2459, 2467, 2503, 2521, 2531, 2579, 2609, 2647

Offset: 1

Henry Bottomley, Apr 10 2000

nonn

Second member of pairs of consecutive primes in A051634 (strong primes). - M. F. Hasler, Oct 27 2018

M. F. Hasler, Table of n, a(n) for n = 1..10000, Oct 27 2018

Cf. A051634, A051635; A054800 .. A054803: members of balanced prime quartets (= consecutive primes in arithmetic progression); A054804 .. A054818: members of strong prime quartet, quintet, sextet; A054819 .. A054840: members of weak prime quartet, quintet, sextet, septets.

a(n) = nextprime(A054804(n))= prevprime(A054806(n)), nextprime = A151800, prevprime = A151799. - M. F. Hasler, Oct 27 2018

Offset corrected to 1 by M. F. Hasler, Oct 27 2018

Definition clarified by N. J. A. Sloane, Aug 28 2021

A054807 Fourth term of strong prime quartets: prime(m+1)-prime(m) > prime(m+2)-prime(m+1) > prime(m+3)-prime(m+2).

Original entry on oeis.org

43, 73, 103, 229, 283, 313, 463, 491, 619, 643, 733, 761, 859, 883, 941, 1093, 1303, 1429, 1453, 1483, 1553, 1667, 1669, 1699, 1747, 1787, 1789, 1867, 1871, 1873, 1997, 1999, 2069, 2143, 2341, 2381, 2383, 2473, 2477, 2531, 2539, 2543, 2593, 2621, 2659

Offset: 1

Henry Bottomley, Apr 10 2000

nonn

M. F. Hasler, Table of n, a(n) for n = 1..10000, Oct 27 2018

Cf. A051634, A051635; A054800 .. A054803: members of balanced prime quartets (= 4 consecutive primes in arithmetic progression); A054804 .. A054818: members of strong prime quartet, quintet, sextet; A054819 .. A054840: members of weak prime quartet, quintet, sextet, septets.

a(n) = nextprime(A054806(n)), nextprime = A151800. - M. F. Hasler, Oct 27 2018

Offset corrected to 1 by M. F. Hasler, Oct 27 2018

Definition clarified by N. J. A. Sloane, Aug 28 2021.

A054806 Third term of strong prime quartets: prime(m+1)-prime(m) > prime(m+2)-prime(m+1) > prime(m+3)-prime(m+2).

Original entry on oeis.org

41, 71, 101, 227, 281, 311, 461, 487, 617, 641, 727, 757, 857, 881, 937, 1091, 1301, 1427, 1451, 1481, 1549, 1663, 1667, 1697, 1741, 1783, 1787, 1861, 1867, 1871, 1993, 1997, 2063, 2141, 2339, 2377, 2381, 2467, 2473, 2521, 2531, 2539, 2591, 2617, 2657

Offset: 1

Henry Bottomley, Apr 10 2000

nonn

M. F. Hasler, Table of n, a(n) for n = 1..10000, Oct 27 2018

Cf. A051634, A051635; A054800 .. A054803: members of balanced prime quartets (= 4 consecutive primes in arithmetic progression); A054804 .. A054818: members of strong prime quartet, quintet, sextet; A054819 .. A054840: members of weak prime quartet, quintet, sextet, septets.

Select[Partition[Prime[Range[400]],4,1],Max[Differences[#,2]]<0&][[All,3]] (* Harvey P. Dale, Aug 28 2021 *)

a(n) = nextprime(A054805(n)) = prevprime(A054807(n)), nextprime = A151800, prevprime = A151799. - M. F. Hasler, Oct 27 2018

Offset corrected to 1 by M. F. Hasler, Oct 27 2018

Definition clarified by N. J. A. Sloane, Aug 28 2021

A054808 First term of strong prime quintets: p(m+1)-p(m) > p(m+2)-p(m+1) > p(m+3)-p(m+2) > p(m+4)-p(m+3).

Original entry on oeis.org

1637, 1759, 1831, 1847, 1979, 2357, 2447, 2477, 2503, 3413, 3433, 4177, 4493, 5237, 5399, 5419, 6011, 6619, 7219, 7253, 7727, 7853, 7907, 8123, 8467, 9551, 9587, 11003, 11353, 11551, 11813, 12379, 13841, 14797, 15107, 15511, 16007, 16273, 16787, 16993, 17359, 18149, 18289

Offset: 1

Henry Bottomley, Apr 10 2000

nonn

First member of pairs of consecutive primes in A054804 (first of strong quartets): The first 10^4 terms of that sequence yield over 2000 terms of this sequence. - M. F. Hasler, Oct 27 2018

Cf. A051634, A051635; A054800 .. A054803: members of balanced prime quartets (= 4 consecutive primes in arithmetic progression); A054804 .. A054818: members of strong prime quartets, quintets, sextets; A054819 .. A054840: members of weak prime quartets, quintets, sextets, septets.

okQ[l_]:=Module[{d=Differences[l]},d[[1]]>d[[2]]>d[[3]]>d[[4]]]; Transpose[ Select[Partition[Prime[Range[2000]],5,1],okQ]][[1]] (* Harvey P. Dale, Aug 15 2011 *)

A054808=List();for(i=2,1e4,A054804[i]==A054805[i-1]&&listput(A054808,A054804[i-1])) \\ M. F. Hasler, Oct 27 2018

a(n) = prevprime(A054809(n)); A054808 = {m = A054804(n) | nextprime(m) = A054804(n+1)}; nextprime = A151800, prevprime = A151799. - M. F. Hasler, Oct 27 2018

Edited and offset corrected to 1 by M. F. Hasler, Oct 27 2018

A054835 Second term of weak prime septet: p(m)-p(m-1) < p(m+1)-p(m) < p(m+2)-p(m+1) < p(m+3)-p(m+2) < p(m+4)-p(m+3) < p(m+5)-p(m+4).

Original entry on oeis.org

15377, 64921, 68209, 68899, 128983, 128987, 143513, 154081, 158003, 192377, 221719, 222389, 244463, 249727, 285289, 318679, 337279, 354373, 357829, 374177, 385393, 394729, 402583, 402587, 419599, 439163, 441913, 448379, 457399, 457673, 458191, 482509, 527983, 529813, 577531, 582763, 655913

Offset: 1

Henry Bottomley, Apr 10 2000

nonn

M. F. Hasler, Table of n, a(n) for n = 1..1000, Oct 27 2018

Cf. A051635, A229832.

Cf. A054800 .. A054803: members of balanced prime quartets (= consecutive primes in arithmetic progression); A054804 .. A054818: members of strong prime quartet, quintet, sextet; A054819 .. A054840: members of weak prime quartet, quintet, sextet, septets.

a(1) = A229832(5). - Jonathan Sondow, Oct 13 2013

a(n) = A151800(A054834(n)) = A151799(A054836(n)), A151800 = nextprime, A151799 = prevprime; A054835 = { m = A054828(n) | m = nextprime(A054828(n-1)) }. - M. F. Hasler, Oct 27 2018

More terms from M. F. Hasler, Oct 27 2018

cp's OEIS Frontend

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

A054819 First term of weak prime quartet: p(m+1)-p(m) < p(m+2)-p(m+1) < p(m+3)-p(m+2).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A054804 First term of strong prime quartets: prime(m+1)-prime(m) > prime(m+2)-prime(m+1) > prime(m+3)-prime(m+2).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A054803 Fourth term of balanced prime quartets: p(m-2)-p(m-3) = p(m-1)-p(m-2) = p(m)-p(m-1).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A054818 Sixth term of strong prime sextets: p(m-4)-p(m-5) > p(m-3)-p(m-4) > p(m-2)-p(m-3) > p(m-1)-p(m-2) > p(m)-p(m-1).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

A054805 Second term of strong prime quartets: prime(m+1)-prime(m) > prime(m+2)-prime(m+1) > prime(m+3)-prime(m+2).

Views

Author

Keywords

Comments

Links

Crossrefs

Formula

Extensions

A054807 Fourth term of strong prime quartets: prime(m+1)-prime(m) > prime(m+2)-prime(m+1) > prime(m+3)-prime(m+2).

Views

Author

Keywords

Links

Crossrefs

Formula

Extensions

A054806 Third term of strong prime quartets: prime(m+1)-prime(m) > prime(m+2)-prime(m+1) > prime(m+3)-prime(m+2).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A054808 First term of strong prime quintets: p(m+1)-p(m) > p(m+2)-p(m+1) > p(m+3)-p(m+2) > p(m+4)-p(m+3).

Views

Author

Keywords