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-4 of 4 results.

A373199 Least k such that the k-th maximal run of nonsquarefree numbers has length n. Position of first appearance of n in A053797.

Original entry on oeis.org

1, 2, 13, 68, 241, 6278, 61921, 311759, 2530539
Offset: 1

Views

Author

Gus Wiseman, Jun 08 2024

Keywords

Comments

A run of a sequence (in this case A013929) is an interval of positions at which consecutive terms differ by one. The a(n)-th run of nonsquarefree numbers begins with A045882 = A051681, subset of A053806.

Examples

			The maximal runs of nonsquarefree numbers begin:
   4
   8   9
  12
  16
  18
  20
  24  25
  27  28
  32
  36
  40
  44  45
  48  49  50
  52
  54
  56
  60
  63  64
The a(n)-th rows are:
     4
     8     9
    48    49    50
   242   243   244   245
   844   845   846   847   848
For example, (48, 49, 50) is the first maximal run of 3 nonsquarefree numbers, so a(3) = 13.

Links

Crossrefs

For composite instead of nonsquarefree we have A073051.
The version for squarefree runs is A373128.
For prime instead of nonsquarefree we have A373400.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
Cf. A007674, A020754, A045882, A120992, A061398, A061399, A068781, A101836, A251092, A294242, A373410, A373412.

Programs

  • Mathematica
    seq=Length/@Split[Select[Range[10000],!SquareFreeQ[#]&],#1+1==#2&];
spna[y_]:=Max@@Select[Range[Length[y]],SubsetQ[y,Range[#]]&];
Table[Position[seq,i][[1,1]],{i,spna[seq]}]

A373412 Sum of the n-th maximal antirun of nonsquarefree numbers differing by more than one.

Original entry on oeis.org

12, 99, 52, 180, 93, 49, 335, 279, 156, 629, 99, 540, 237, 245, 125, 521, 567, 450, 963, 340, 347, 728, 1386, 1080, 1637, 243, 244, 1511, 1610, 555, 852, 1171, 2142, 960, 985, 1689, 343, 1042, 351, 1068, 724, 732, 1116, 1905, 1980, 2898, 424, 2161, 3150, 2339
Offset: 1

Views

Author

Gus Wiseman, Jun 06 2024

Keywords

Comments

The length of this antirun is given by A373409.
An antirun of a sequence (in this case A013929) is an interval of positions at which consecutive terms differ by more than one.

Examples

			Row-sums of:
   4   8
   9  12  16  18  20  24
  25  27
  28  32  36  40  44
  45  48
  49
  50  52  54  56  60  63
  64  68  72  75
  76  80
  81  84  88  90  92  96  98
  99

Links

Crossrefs

The partial sums are a subset of A329472.
Functional neighbors: A068781, A373404, A373405, A373409, A373410, A373411, A373414.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
Cf. A025157, A049093, A049094, A061399, A101836, A112925, A143658, A294242, A350842, A372683, A373197.

Programs

  • Mathematica
    Total/@Split[Select[Range[100],!SquareFreeQ[#]&],#1+1!=#2&]//Most

A373414 Sum of the n-th maximal run of nonsquarefree numbers differing by one.

Original entry on oeis.org

4, 17, 12, 16, 18, 20, 49, 55, 32, 36, 40, 89, 147, 52, 54, 56, 60, 127, 68, 72, 151, 161, 84, 88, 90, 92, 96, 297, 104, 108, 112, 233, 241, 375, 128, 132, 271, 140, 144, 295, 150, 305, 156, 160, 162, 164, 337, 343, 351, 180, 184, 377, 192, 196, 198, 200, 204
Offset: 1

Views

Author

Gus Wiseman, Jun 06 2024

Keywords

Comments

The length of this run is given by A053797.
A run of a sequence (in this case A013929) is an interval of positions at which consecutive terms differ by one.

Examples

			Row-sums of:
   4
   8   9
  12
  16
  18
  20
  24  25
  27  28
  32
  36
  40
  44  45
  48  49  50

Links

Crossrefs

The partial sums are a subset of A329472.
Functional neighbors: A053797, A053806, A054265, A373406, A373412, A373413.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
Cf. A049093, A049094, A061398, A061399, A077641, A077643, A101836, A143658 A294242, A373123, A373197.

Programs

  • Mathematica
    Total/@Split[Select[Range[100],!SquareFreeQ[#]&],#1+1==#2&]//Most

A376164 Maximum of the n-th maximal run of nonsquarefree numbers (increasing by 1 at a time).

Original entry on oeis.org

4, 9, 12, 16, 18, 20, 25, 28, 32, 36, 40, 45, 50, 52, 54, 56, 60, 64, 68, 72, 76, 81, 84, 88, 90, 92, 96, 100, 104, 108, 112, 117, 121, 126, 128, 132, 136, 140, 144, 148, 150, 153, 156, 160, 162, 164, 169, 172, 176, 180, 184, 189, 192, 196, 198, 200, 204, 208
Offset: 1

Views

Author

Gus Wiseman, Sep 15 2024

Keywords

Examples

			The maximal runs of nonsquarefree numbers begin:
       4
     8   9
      12
      16
      18
      20
    24  25
    27  28
      32
      36
      40
    44  45
  48  49  50

Crossrefs

For length instead of maximum we have A053797 (firsts A373199).
For lengths of anti-runs we have A373409 (firsts A373573).
For sum instead of maximum we have A373414, anti A373412.
For minimum instead of maximum we have A053806, anti A373410.
For anti-runs instead of runs we have A068781.
For squarefree instead of nonsquarefree we have A373415, anti A007674.
For nonprime instead of nonsquarefree we have A006093 with 2 removed.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, differences A078147, sums A329472.
A061398 counts squarefree numbers between primes, nonsquarefree A061399.
A120992 gives squarefree run-lengths, anti A373127 (firsts A373128).
A373413 adds up each maximal run of squarefree numbers, min A072284.
A375707 counts squarefree numbers between consecutive nonsquarefree numbers.
Cf. A000040, A020754, A045882, A049094, A054265, A077641, A101836, A143658, A294242, A375709.

Programs

  • Mathematica
    Max/@Split[Select[Range[100],!SquareFreeQ[#]&],#1+1==#2&]//Most
Showing 1-4 of 4 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.