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.

Showing 1-7 of 7 results.

A067813 Start of a record-breaking run of consecutive integers with a number of prime factors (counted with multiplicity) equal to 3.

Original entry on oeis.org

8, 27, 170, 602, 2522, 211673
Offset: 1

Views

Author

Shyam Sunder Gupta, Feb 07 2002

Keywords

Comments

602 is the first number having 4 and 5 consecutive integers with 3 prime factors. - T. D. Noe, Mar 19 2014

Examples

			a(4)=602 because 602 is the start of a record breaking run of 5 consecutive integers (602 to 606) each having 3 prime factors; i.e. bigomega(n)=A001222(n)=3 for n = 602, ..., 606.

Crossrefs

Cf. A007304, A045984, A067814, A067820, A067821, A067822, A117969, A259756.

Programs

  • Mathematica
    bigomega[n_] := Plus@@Last/@FactorInteger[n]; For[n=1; m=l=0, True, n++, If[bigomega[n]==3, l++, If[l>m, m=l; Print[n-l, " ", l]]; l=0]]
Module[{nn=8,po},po=PrimeOmega[Range[5000000]];Flatten[Table[ SequencePosition[ po,PadRight[{},n,3],1],{n,nn}],1]][[All,1]]//Union (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 14 2019 *)
  • PARI
    show(lim)=my(was,r,ct); forfactored(n=2, lim\1+1, is=vecsum(n[2][, 2])==3; if(is, ct++; if(ct>r, r=ct; print(r" "n[1]-r+1)),ct=0)) \\ Charles R Greathouse IV, Jun 26 2019

Extensions

Edited by Dean Hickerson, Jul 31 2002

A067821 The start of a record-breaking run of consecutive integers with a number of prime factors (counted with multiplicity) equal to 6.

Original entry on oeis.org

64, 5264, 33614, 8706123, 101905622, 4843161124, 25189114374, 412352139170, 1122875553872, 28099912628847, 78661670985666
Offset: 1

Views

Author

Shyam Sunder Gupta, Feb 07 2002

Keywords

Comments

a(11) > 3*10^13. - Brian Trial, May 26 2017
a(12) > 2 * 10^15. - Toshitaka Suzuki, Aug 31 2025

Examples

			a(3)=33614 because 33614 is the start of a record breaking run of 3 consecutive integers (33614 to 33616) each having 6 prime factors; i.e., bigomega(n)=A001222(n)=6 for n = 33614, ..., 33616.

Crossrefs

Cf. A001222, A067813, A067814, A067820, A067822.

Programs

  • Mathematica
    bigomega[n_] := Plus@@Last/@FactorInteger[n]; For[n=1; m=l=0, True, n++, If[bigomega[n]==6, l++, If[l>m, m=l; Print[n-l, " ", l]]; l=0]]

Extensions

Edited by Dean Hickerson, Jul 31 2002
More terms from Jens Kruse Andersen, Aug 23 2003
a(7)-a(9) from Donovan Johnson, Jan 31 2009
a(10) from Brian Trial, May 26 2017
a(11) from Toshitaka Suzuki, Aug 31 2025

A067814 The start of a record-breaking run of consecutive integers with a number of prime factors (counted with multiplicity) equal to 4.

Original entry on oeis.org

16, 135, 1274, 4023, 12122, 204323, 355923, 3405122, 49799889, 202536181, 3195380868, 5208143601, 85843948321, 97524222465
Offset: 1

Views

Author

Shyam Sunder Gupta, Feb 07 2002

Keywords

Comments

3405122 is the first number having 8 and 9 consecutive integers with 4 prime factors. - T. D. Noe, Mar 19 2014

Examples

			a(4)=4023 because 4023 is the start of a record breaking run of 4 consecutive integers (4023 to 4026) each having 4 prime factors; i.e. bigomega(n)=A001222(n)=4 for n = 4023, ..., 4026.

Crossrefs

Cf. A067813, A067820, A067821, A067822.

Programs

  • Mathematica
    bigomega[n_] := Plus@@Last/@FactorInteger[n]; For[n=1; m=l=0, True, n++, If[bigomega[n]==4, l++, If[l>m, m=l; Print[n-l, " ", l]]; l=0]]

Extensions

Edited by Dean Hickerson, Jul 31 2002
More terms from Don Reble, Aug 11 2002, who remarks that the sequence is now complete.

A067822 The start of a record-breaking run of consecutive integers with a number of prime factors equal to 7.

Original entry on oeis.org

128, 29888, 3145310, 296299374, 15605704374, 242576758750, 1981162639374, 126460514648223
Offset: 1

Views

Author

Shyam Sunder Gupta, Feb 07 2002

Keywords

Examples

			a(3) = 3145310 because 3145310 is the start of a record breaking run of 3 consecutive integers (3145310 to 3145312) each having 7 prime factors; i.e., bigomega(n) = A001222(n) = 7 for n = 3145310, ..., 3145312.

Crossrefs

Cf. A001222, A067813, A067814, A067820, A067821.

Programs

  • Mathematica
    bigomega[n_] := Plus@@Last/@FactorInteger[n]; For[n=1; m=l=0, True, n++, If[bigomega[n]==7, l++, If[l>m, m=l; Print[n-l, " ", l]]; l=0]]

Extensions

Edited by Dean Hickerson, Jul 31 2002
More terms from Jens Kruse Andersen, Aug 23 2003
a(7) from Donovan Johnson, Jan 31 2009
a(8) from Brian Trial, Jun 28 2017

A117969 Start of least run of maximal length of consecutive n-almost primes.

Original entry on oeis.org

2, 33, 211673, 97524222465
Offset: 1

Views

Author

Rick L. Shepherd, Apr 05 2006

Keywords

Comments

For n>=2 there cannot be more than 2^n - 1 consecutive n-almost primes. Is it known whether there always exists such a run of length 2^n - 1? If not, I conjecture so. This is confirmed to be true for terms through a(4). Terms here equal the last terms of corresponding finite sequences: a(3) = A067813(6). a(4) was computed by Don Reble as A067814(14). a(5) >= A067820(12).
a(4) is smaller than the number 488995430567765317569 found by Forbes. [From T. D. Noe, Oct 29 2008]

Examples

			a(2) = 33 because 33, 34, 35 is the least run of three consecutive 2-almost primes (semiprimes).

Links

Crossrefs

Cf. A067813, A067814, A067820, A067821, A067822.

A267361 Numbers n such that 6 consecutive numbers starting with n are products of 5 primes.

Original entry on oeis.org

14845324, 22515700, 22721584, 25693260, 28387952, 28837625, 39664372, 41268874, 45595624, 46631220, 47484279, 50845288, 61818774, 63618020, 65411124, 69358372, 69921004, 69921005, 70195563, 76845965
Offset: 1

Views

Author

Zak Seidov, Jan 25 2016

Keywords

Comments

a(1)=14845324=A067820(6).

Crossrefs

Subsequence of A124729. Cf. A067820.

A267362 Numbers n such that 5 consecutive numbers starting with n are products of 5 primes.

Original entry on oeis.org

632148, 1380246, 3322374, 3755672, 4294374, 4336548, 4546071, 5491574, 5924148, 6033752, 6884268, 6943472, 8179566, 8223368, 8252628, 8284548, 8544470, 8646504, 8923472, 8928774, 8961325, 9084392
Offset: 1

Views

Author

Zak Seidov, Jan 20 2016

Keywords

Comments

Both n-1 and n+5 may or not be products of 5 primes.
a(1)=632148=A067820(5).
First number n such that also n+5 is product of 5 primes is a(50)=14845324=A067820(6).

Examples

			632148=2*2*3*11*4789, 632149=7*7*7*19*97, 632150=2*5*5*47*269,
632151=3*3*3*13*1801, 632152=2*2*2*31*2549.

Links

Crossrefs

Subsequence of A124729. Cf. A067820, A267361.

Programs

  • Mathematica
    SequencePosition[PrimeOmega[Range[91*10^5]],{5,5,5,5,5}][[All,1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 05 2017 *)
Showing 1-7 of 7 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.