A098974 -id:A098974 - cp's OEIS frontend

A052190 Primes p such that p, p+24, p+48 are consecutive primes.

16763, 40039, 42509, 96353, 98573, 104183, 119243, 123863, 160093, 161783, 169259, 181789, 185243, 208529, 209719, 232753, 235699, 243343, 246049, 260339, 261799, 270073, 295363, 295703, 302459, 315199, 331399, 362003, 364079, 373669, 380729, 381793, 385943, 414809

Offset: 1

Labos Elemer, Jan 28 2000

nonn

Old name was "Primes p(k) such that p(k+2)-p(k+1)=p(k+1)-p(k)=24."

			40039 is followed by 40063 and 40087, consecutive primes with equal distance of 24.

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)

Subsequence of A098974.

Cf. A001223, A033451, A047948, A052188, A052189.

Select[Partition[Prime[Range[40000]],3,1],Differences[#]=={24,24}&][[All,1]] (* Harvey P. Dale, May 09 2019 *)

list(lim) = {my(p1 = 2, p2 = 3); forprime(p3 = 5, lim, if(p2 - p1 == 24 && p3 - p2 == 24, print1(p1, ", ")); p1 = p2; p2 = p3);} \\ Amiram Eldar, Feb 28 2025

Name changed by Jon E. Schoenfield, May 30 2018

A126784 Primes p such that q-p = 32, where q is the next prime after p.

Original entry on oeis.org

5591, 10799, 27701, 27851, 33647, 39047, 41081, 41687, 43721, 44417, 45989, 47459, 50789, 52457, 55259, 55547, 61781, 62351, 64817, 66239, 67307, 69959, 73907, 79907, 80567, 82307, 84089, 88037, 94169, 94961, 99191, 99929, 100559, 102611

Offset: 1

Douglas Winston (douglas.winston(AT)srupc.com), Feb 24 2007

Lower prime of a difference of 32 between consecutive primes.

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Cf. A001359, A029710, A031924, A031926, A031928, A031930, A031932, A031934, A031936, A031938, A061779, A098974, A124594, A124595, A124596, A000230, A050434.

lista(nn) = {p = 2; while (p < nn, q = nextprime(p+1); if (q - p == 32, print1(p, ", ")); p = q;);} \\ Michel Marcus, Jul 17 2013

A204672 Primes followed by a gap of 120.

Original entry on oeis.org

1895359, 2898239, 6085441, 7160227, 7784039, 7803491, 7826899, 8367397, 8648557, 9452959, 10052071, 10863973, 11630503, 11962823, 12109697, 12230233, 12415681, 14411737, 14531899, 15014557, 15020737, 15611909, 16179041

Offset: 1

M. F. Hasler, Jan 18 2012

nonn

M. F. Hasler, Table of n, a(n) for n = 1..433 (all a(n) < 10^8).
Index entries for primes, gaps between

Cf. A058193 (first gap of 6n), A140791 (first gap of 10n).
Cf. A126771 (gap 60), A126724 (gap 150), A204673 (gap 180).
Cf. A001359, A029710, A031924-A031938, A061779, A098974, A124594-A124596, A126784, A134116-A134124, A204665-A204670.

N = 2*10^7; % to get all terms <= N
P = primes(N+120);
J = find(P(2:end) - P(1:end-1) == 120);
P(J)  % Robert Israel, Feb 28 2017

Transpose[Select[Partition[Prime[Range[1100000]],2,1],Last[#]-First[#] == 120&]] [[1]] (* Harvey P. Dale, Jul 11 2014 *)

g=120;c=o=0;forprime(p=1,default(primelimit),(-o+o=p)==g&write("c:/temp/b204672.txt",c++" "p-g))

A174350 Square array: row n >= 1 lists the primes p for which the next prime is p+2n; read by antidiagonals.

Original entry on oeis.org

3, 5, 7, 11, 13, 23, 17, 19, 31, 89, 29, 37, 47, 359, 139, 41, 43, 53, 389, 181, 199, 59, 67, 61, 401, 241, 211, 113, 71, 79, 73, 449, 283, 467, 293, 1831, 101, 97, 83, 479, 337, 509, 317, 1933, 523, 107, 103, 131, 491, 409, 619, 773, 2113, 1069, 887

Offset: 1

Clark Kimberling, Mar 16 2010

Every odd prime p = prime(i), i > 1, occurs in this array, in row (prime(i+1) - prime(i))/2. Polignac's conjecture states that each row contains an infinite number of indices. In case this does not hold, we can use the convention to continue finite rows with 0's, to ensure the sequence is well defined. - M. F. Hasler, Oct 19 2018

A permutation of the odd primes (A065091). - Robert G. Wilson v, Sep 13 2022

			Upper left hand corner of the array:
     3     5    11    17    29    41    59    71   101 ...
     7    13    19    37    43    67    79    97   103 ...
    23    31    47    53    61    73    83   131   151 ...
    89   359   389   401   449   479   491   683   701 ...
   139   181   241   283   337   409   421   547   577 ...
   199   211   467   509   619   661   797   997  1201 ...
   113   293   317   773   839   863   953  1409  1583 ...
  1831  1933  2113  2221  2251  2593  2803  3121  3373 ...
   523  1069  1259  1381  1759  1913  2161  2503  2861 ...
  (...)
Row 1: p(2) = 3, p(3) = 5, p(5) = 11, p(7) = 17,... these being the primes for which the next prime is 2 greater: (lesser of) twin primes A001359.
Row 2: p(4) = 7, p(6) = 13, p(8) = 19,... these being the primes for which the next prime is 4 greater: (lesser of) cousin primes A029710.

Robert G. Wilson v, Falling antidiagonals 1..115, flattened (first 50 from T. D. Noe).
Fred B. Holt and Helgi Rudd, On Polignac's Conjecture, arxiv:1402.1970 [math.NT], 2014.

Cf. A000040, A001223, A065091, A174349.
Rows 1, 2, 3, ...: A001359, A029710, A031924, A031926, A031928 (row 5), A031930, A031932, A031934, A031936, A031938 (row 10), A061779, A098974, A124594, A124595, A124596 (row 15), A126784, A134116, A134117, A134118, A126721 (row 20), A134120, A134121, A134122, A134123, A134124 (row 25), A204665, A204666, A204667, A204668, A126771 (row 30), A204669, A204670.
Rows 35, 40, 45, 50, ...: A204792, A126722, A204764, A050434 (row 50), A204801, A204672, A204802, A204803, A126724 (row 75), A184984, A204805, A204673, A204806, A204807 (row 100); A224472 (row 150).
Column 1: A000230.
Column 2: A046789.

rows = 10; t2 = {}; Do[t = {}; p = Prime[2]; While[Length[t] < rows - off + 1, nextP = NextPrime[p]; If[nextP - p == 2*off, AppendTo[t, p]]; p = nextP]; AppendTo[t2, t], {off, rows}]; Table[t2[[b, a - b + 1]], {a, rows}, {b, a}] (* T. D. Noe, Feb 11 2014 *)
t[r_, 0] = 2; t[r_, c_] := Block[{p = NextPrime@ t[r, c - 1], q}, q = NextPrime@ p; While[ p + 2r != q, p = q; q = NextPrime@ q]; p]; Table[ t[r - c + 1, c], {r, 10}, {c, r, 1, -1}] (* Robert G. Wilson v, Nov 06 2020 *)

A174350_row(g, N=50, i=0, p=prime(i+1), L=[])={g*=2; forprime(q=1+p, , i++; if(p+g==p=q, L=concat(L, q-g); N--||return(L)))} \\ Returns the first N terms of row g. - M. F. Hasler, Oct 19 2018

a(n) = A000040(A174349(n)). - Michel Marcus, Mar 30 2016

Definition corrected and other edits by M. F. Hasler, Oct 19 2018

A224472 Primes followed by a gap of 300.

Original entry on oeis.org

4758958741, 5612345261, 6169169561, 6306815239, 6646984159, 7335508261, 8645089003, 8806019249, 9047808247, 9148138313, 9466071347, 9907846261, 10055451683, 11063821453, 11475026363, 11603081459, 12292390637, 12750876857, 13833827471, 14636472007, 15876700949

Offset: 1

Zak Seidov, Apr 07 2013

nonn

The first twin gap equal to 300 occurs for p = 6537587646371. - Giovanni Resta, Apr 07 2013

Zak Seidov, Table of n, a(n) for n = 1..3718
Index entries for primes, gaps between

Cf. A058193 (first gap of 6n), A140791 (first gap of 10n), A126771 (gap 60), A126724 (gap 150), A204673 (gap 180), A204807 (gap 200), A000230, A001359, A204672, A029710, A031924-A031938, A061779, A098974, A124594-A124596, A126784, A134116-A134124, A204665-A204670.

A126720 Primes p such that p - q = 24, where q is the previous prime before p; or prime numbers preceded by precisely 23 composite numbers.

Original entry on oeis.org

1693, 2203, 4201, 4547, 4783, 5261, 6197, 6421, 6761, 7103, 7393, 7817, 8147, 8353, 9091, 11027, 11657, 11863, 12097, 12143, 13033, 13291, 16057, 16217, 16477, 16787, 16811, 17077, 17707, 18013, 18617, 18661, 19207, 19531, 20507, 22433, 22901

Offset: 1

Artur Jasinski, Feb 13 2007

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000230, A033560, A031505, A031925, A031927, A098974, A098976, A061779.

a = {}; Do[If[Prime[x + 1] - Prime[x] == 24, AppendTo[a, Prime[x + 1]]], {x, 1, 10000}]; a

q=2; forprime(p=3,1e5, if(p-q==24, print1(p", ")); q=p) \\ Charles R Greathouse IV, Mar 13 2020

a(n) = A098974(n) + 24. - Amiram Eldar, Mar 13 2020

a(n) >> n log^2 n. - Charles R Greathouse IV, Mar 13 2020

A257638 Numbers n such that n-25, n-1, n+1 and n+25 are consecutive primes.

Original entry on oeis.org

232962, 311712, 431832, 435948, 473352, 501342, 525492, 596118, 635388, 665922, 699792, 754182, 842448, 1013502, 1017648, 1036002, 1156848, 1255452, 1284738, 1306692, 1479912, 1516128, 1551732, 1560708, 1595928, 1659348, 1690572, 1745112

Offset: 1

Karl V. Keller, Jr., Nov 04 2015

nonn

This is a subsequence of A014574 (average of twin prime pairs) and A256753.
The terms ending in 2 and 8 are congruent to 12 mod 30 and 18 mod 30 respectively.
The numbers n-25 and n+1 belong to A033560 (p and p+24 are primes) and A098974 (p where p+24 is the next prime).
The numbers n-25 and n-1 belong to A252089 (p and p+26 are primes).

			232962 is the average of the four consecutive primes 232937, 232961, 232963, 232987.
311712 is the average of the four consecutive primes 311687, 311711, 311713, 311737.

Karl V. Keller, Jr., Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Twin Primes

Cf. A014574, A077800 (twin primes), A249674, A256753.

from sympy import isprime,prevprime,nextprime
for i in range(0,1000001,6):
  if isprime(i-1) and isprime(i+1) and prevprime(i-1) == i-25 and nextprime(i+1) == i+25: print (i,end=', ')

A320710 Indices of primes followed by a gap (distance to next larger prime) of 24.

Original entry on oeis.org

263, 327, 574, 615, 641, 697, 804, 834, 869, 909, 938, 987, 1022, 1045, 1127, 1336, 1399, 1421, 1446, 1452, 1551, 1577, 1865, 1883, 1908, 1938, 1939, 1968, 2032, 2064, 2128, 2130, 2176, 2214, 2313, 2508, 2555, 2592, 2612, 2652, 2736, 2762, 2991, 3162, 3243, 3285, 3483, 3489

Offset: 1

M. F. Hasler, Oct 19 2018

nonn

Indices of the primes listed in A098974.

Robert Israel, Table of n, a(n) for n = 1..10000
Index entries for primes, gaps between.

Equals A000720 o A098974.
Row 12 of A174349.
Indices of 24's in A001223.
Cf. A029707, A029709, A320701, A320702, ..., A320720 (analog for gaps 2, 4, 6, 8, ..., 44), A116493 (gap 70), A116496 (gap 100), A116497 (gap 200), A116495 (gap 210).

P:= [seq(ithprime(i),i=1..4001)]:
B:= P[2..-1]-P[1..-2]:
select(t -> B[t]=24, [$1..4000]); # Robert Israel, May 03 2019

A(N=100,g=24,p=2,i=primepi(p)-1,L=List())={forprime(q=1+p,,i++; if(p+g==p=q, listput(L,i); N--||break));Vec(L)} \\ returns the list of first N terms of the sequence

a(n) = A000720(A098974(n)).

A320710 = { i > 0 | prime(i+1) = prime(i) + 24 }.

cp's OEIS Frontend

A052190 Primes p such that p, p+24, p+48 are consecutive primes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A126784 Primes p such that q-p = 32, where q is the next prime after p.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A204672 Primes followed by a gap of 120.

Views

Author

Keywords

Links

Crossrefs

Programs

MATLAB

Mathematica

PARI

A174350 Square array: row n >= 1 lists the primes p for which the next prime is p+2n; read by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A224472 Primes followed by a gap of 300.

Views

Author

Keywords

Comments

Links

Crossrefs

A126720 Primes p such that p - q = 24, where q is the previous prime before p; or prime numbers preceded by precisely 23 composite numbers.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A257638 Numbers n such that n-25, n-1, n+1 and n+25 are consecutive primes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Python

A320710 Indices of primes followed by a gap (distance to next larger prime) of 24.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs