cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-15 of 15 results.

A327760 Primes in Rob Gahan's arithmetic progression of 27 primes.

Original entry on oeis.org

224584605939537911, 242720302537486841, 260855999135435771, 278991695733384701, 297127392331333631, 315263088929282561, 333398785527231491, 351534482125180421, 369670178723129351, 387805875321078281, 405941571919027211, 424077268516976141, 442212965114925071
Offset: 1

Views

Author

Felix Fröhlich, Sep 25 2019

Keywords

Comments

This arithmetic progression of 27 primes (AP27) was discovered by Rob Gahan on 23 September 2019 as part of PrimeGrid's AP27 Search subproject (cf. Goetz, 2019).

Crossrefs

Programs

  • Mathematica
    A327760[n_] := 224584605939537911 + (n-1)*18135696597948930;
    Array[A327760, 27] (* Paolo Xausa, Jan 30 2024 *)
  • PARI
    vector(27, t, 224584605939537911+81292139*223092870*(t-1))

A363980 Tom Greer's arithmetic progression of 27 primes.

Original entry on oeis.org

277699295941594831, 315809464967513821, 353919633993432811, 392029803019351801, 430139972045270791, 468250141071189781, 506360310097108771, 544470479123027761, 582580648148946751, 620690817174865741, 658800986200784731, 696911155226703721, 735021324252622711
Offset: 1

Views

Author

Marco Ripà, Jun 30 2023

Keywords

Comments

At the time of submission (June 2023), this sequence is the arithmetic progression of 27 primes having the largest known initial and final term and it was found by Tom Greer on 26 May 2023 as part of PrimeGrid's AP27, running the program AP26 (this is the second known AP27 to date, see A327760).

Examples

			a(3) = 277699295941594831 + 2*170826477*223092870 is prime.
		

Crossrefs

Programs

  • Mathematica
    A363980[n_]:=277699295941594831 + (n-1)*38110169025918990;
    Array[A363980, 27] (* Paolo Xausa, Jan 30 2024 *)
  • PARI
    vector(27, t, 277699295941594831+170826477*223092870*(t-1))

Formula

a(n+1) = 277699295941594831 + n*170826477*223092870, for n = 0, 1, ..., 26.

A374949 Michael Kwok's arithmetic progression of 27 primes.

Original entry on oeis.org

605185576317848261, 639847242910261121, 674508909502673981, 709170576095086841, 743832242687499701, 778493909279912561, 813155575872325421, 847817242464738281, 882478909057151141, 917140575649564001, 951802242241976861, 986463908834389721, 1021125575426802581
Offset: 1

Views

Author

Marco Ripà, Jul 24 2024

Keywords

Comments

At the time of submission (July 2024), this sequence is the arithmetic progression of 27 primes having the largest known initial and final term and it was found by Michael Kwok on 10 December 2023 as part of the project PrimeGrid, running the program AP26 (this is the third known AP27 to date, see A327760 and A363980).

Examples

			a(3) = 605185576317848261 + 2*34661666592412860 is prime.
		

Crossrefs

Programs

  • Mathematica
    A374949[n_]:=605185576317848261 + (n-1)* 34661666592412860; Array[A374949, 27]
  • PARI
    vector(27, t, 605185576317848261+155368778*223092870*(t-1))

Formula

a(n+1) = 605185576317848261 + n*34661666592412860, for n = 0, 1, ..., 26.

A343122 Consider the longest arithmetic progressions of primes from among the first n primes; a(n) is the smallest constant difference of these arithmetic progressions.

Original entry on oeis.org

1, 1, 2, 2, 2, 2, 2, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30, 30
Offset: 2

Views

Author

Andres Cicuttin, Apr 05 2021

Keywords

Comments

It seems that most terms are primorials (see comments in A338869 and A338238).

Examples

			For n=2, the first two primes are 2 and 3, the only subsequence of equidistant primes. The constant difference is 1, so a(2) = 1.
For n=3, there are three sequences of equidistant primes: {2,3} with constant difference 1, {3,5} with difference 2, and {2,5} with difference 3, so a(3) = 1 because 1 is the smallest constant difference among the three longest sequences.
		

Crossrefs

Cf. A338869, A338238, A002110 (Primorials), A343118, A033188.

Programs

  • Mathematica
    nmax=100; (* Last n *)
    maxlen=11 ; (* Maximum exploratory length of sequences of equidistant primes *)
    (* a[n, p, s] returns the sequence of "s" equidistant primes with period "p" and last prime prime(n) if it exists, otherwise it returns {} *)
    a[n_,period_,seqlen_]:=Module[{tab,test},
    (* Building sequences of equidistant numbers ending with prime(n) *)
    tab=Table[Prime[n]-k*period,{k,0,seqlen-1}];
    (* Checking if all elements are primes and greater than 2 *)
    test=(And@@PrimeQ@tab)&&(And@@Map[(#>2&),tab]);
    Return[If[test,tab,{}]]];
    atab={}; aterms={}; (* For every n, exploring all sequences of equidistant primes among the first n primes with n > 3 *)
    Do[
    Do[Do[
    If[a[n,period,seqlen]!={},AppendTo[atab,{seqlen,period}]]
    ,{period,2,Ceiling[Prime[n]/(seqlen-1)],2}]
    ,{seqlen,2,maxlen}];
    (* "longmax" is the length of the longest sequences *)
    longmax=Sort[atab,#1[[1]]>#2[[1]]&][[1]][[1]];
    (* Selecting the elements corresponding to the longest sequences *)
    atab=Select[atab,#[[1]]==longmax&];
    (* Saving the pairs {n, corresponding minimum periods} *)
    AppendTo[aterms,{n,Min[Transpose[atab][[2]]]}]
    ,{n,4,nmax}];
    (* Prepending the first two terms corresponding to the simple cases of first primes {2,3} and {2,3,5} *)
    Join[{1,1},(Transpose[aterms][[2]])]

A113593 Minimal differences that appear in arithmetic progressions of primes.

Original entry on oeis.org

0, 1, 2, 6, 30, 150, 210, 2310, 30030, 510510, 9699690, 223092870, 6469693230
Offset: 1

Views

Author

Jon Wild, Jan 26 2006

Keywords

Comments

Collapsed version of sequence A033188. If a conjecture about arithmetic prime progressions is correct (see A033188), this sequence is simply the primorial numbers with 150 inserted into the list. Zero is also included (since p,p is an arithmetic progression with difference 0).

Examples

			2 belongs in the sequence because the smallest d satisfying "n, n+d, n+2d are all prime" is 2. 4 does not belong, despite there existing triples {n, n+4, n+8} that are all prime--because a difference of 4 does not allow a new length of progression, i.e. there is no prime progression {n, n+4, n+8, n+12}.
		

Crossrefs

Previous Showing 11-15 of 15 results.