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

A373409 Length of the n-th maximal antirun of nonsquarefree numbers differing by more than one.

Original entry on oeis.org

2, 6, 2, 5, 2, 1, 6, 4, 2, 7, 1, 5, 2, 2, 1, 4, 4, 3, 6, 2, 2, 4, 7, 5, 7, 1, 1, 6, 6, 2, 3, 4, 7, 3, 3, 5, 1, 3, 1, 3, 2, 2, 3, 5, 5, 7, 1, 5, 7, 5, 1, 8, 4, 2, 5, 2, 2, 3, 3, 1, 7, 3, 4, 7, 1, 5, 2, 5, 2, 6, 7, 6, 7, 5, 1, 2, 3, 5, 6, 4, 1, 3, 5, 7, 2, 3, 2
Offset: 1

Views

Author

Gus Wiseman, Jun 06 2024

Keywords

Comments

An antirun of a sequence (in this case A013929) is an interval of positions at which consecutive terms differ by more than one.
Conjecture: The maximum is 9, and there is no antirun of more than 9 nonsquarefree numbers. Confirmed up to 100,000,000.

Examples

			Row-lengths 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
The first maximal antirun of length 9 is the following, shown with prime indices:
  6345: {2,2,2,3,15}
  6348: {1,1,2,9,9}
  6350: {1,3,3,31}
  6352: {1,1,1,1,78}
  6354: {1,2,2,71}
  6356: {1,1,4,49}
  6358: {1,5,7,7}
  6360: {1,1,1,2,3,16}
  6363: {2,2,4,26}

Links

Crossrefs

Positions of first appearances are A373573, sorted A373574.
Functional neighbors: A027833, A053797, A068781, A373127, A373403, A373410, A373412.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
Cf. A025157, A049093, A061398, A061399, A077641, A077643, A110969, A174965, A294242, A350842, A373198.

Programs

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

A373670 Numbers k such that the k-th run-length A110969(k) of the sequence of non-prime-powers (A024619) is different from all prior run-lengths.

Original entry on oeis.org

1, 5, 7, 12, 18, 28, 40, 53, 71, 109, 170, 190, 198, 207, 236, 303, 394, 457, 606, 774, 1069, 1100, 1225, 1881, 1930, 1952, 2247, 2281, 3140, 3368, 3451, 3493, 3713, 3862, 4595, 4685, 6625, 8063, 8121, 8783, 12359, 12650, 14471, 14979, 15901, 17129, 19155
Offset: 1

Views

Author

Gus Wiseman, Jun 15 2024

Keywords

Comments

The unsorted version is A373669.

Examples

			The maximal runs of non-prime-powers begin:
   1
   6
  10
  12
  14  15
  18
  20  21  22
  24
  26
  28
  30
  33  34  35  36
  38  39  40
  42
  44  45  46
  48
  50  51  52
  54  55  56  57  58
  60
So the a(n)-th runs begin:
   1
  14  15
  20  21  22
  33  34  35  36
  54  55  56  57  58

Crossrefs

For nonsquarefree runs we have A373199 (if increasing), firsts of A053797.
For squarefree antiruns see A373200, unsorted A373128, firsts of A373127.
For composite runs we have A373400, unsorted A073051, firsts of A176246.
For prime antiruns we have A373402.
For runs of non-prime-powers:
- length A110969, firsts A373669, sorted A373670 (this sequence):
- min A373676
- max A373677
- sum A373678
For runs of prime-powers:
- length A174965
- min A373673
- max A373674
- sum A373675
A000961 lists the powers of primes (including 1).
A057820 gives first differences of consecutive prime-powers, gaps A093555.
A361102 lists the non-prime-powers, without 1 A024619.
Cf. A005381, A008864, A014963, A027833, A038664, A356068, A373401, A373574.

Programs

  • Mathematica
    t=Length/@Split[Select[Range[10000],!PrimePowerQ[#]&],#1+1==#2&];
Select[Range[Length[t]],FreeQ[Take[t,#-1],t[[#]]]&]

A373573 Least k such that the k-th maximal antirun of nonsquarefree numbers has length n. Position of first appearance of n in A373409.

Original entry on oeis.org

6, 1, 18, 8, 4, 2, 10, 52, 678
Offset: 1

Views

Author

Gus Wiseman, Jun 10 2024

Keywords

Comments

The sorted version is A373574.
An antirun of a sequence (in this case A013929) is an interval of positions at which consecutive terms differ by more than one.
Is this sequence finite? Are there only 9 terms?

Examples

			The maximal antiruns 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  68  72  75
  76  80
  81  84  88  90  92  96  98
  99
The a(n)-th rows are:
    49
     4    8
   148  150  152
    64   68   72   75
    28   32   36   40   44
     9   12   16   18   20   24
    81   84   88   90   92   96   98
   477  480  484  486  488  490  492  495
  6345 6348 6350 6352 6354 6356 6358 6360 6363

Links

Crossrefs

For composite runs we have A073051, firsts of A176246, sorted A373400.
For squarefree runs we have the triple (5,3,1), firsts of A120992.
For prime runs we have the triple (1,3,2), firsts of A175632.
For squarefree antiruns we have A373128, firsts of A373127, sorted A373200.
For nonsquarefree runs we have A373199 (assuming sorted), firsts of A053797.
For prime antiruns we have A373401, firsts of A027833, sorted A373402.
For composite antiruns we have the triple (2,7,1), firsts of A373403.
Positions of first appearances in A373409.
The sorted version is A373574.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
Cf. A007674, A025157, A049094, A061399, A068781, A072284, A110969, A251092, A294242, A373410, A373412.

Programs

  • Mathematica
    t=Length/@Split[Select[Range[10000],!SquareFreeQ[#]&],#1+1!=#2&]//Most;
spna[y_]:=Max@@Select[Range[Length[y]],SubsetQ[t,Range[#1]]&];
Table[Position[t,k][[1,1]],{k,spna[t]}]
Showing 1-3 of 3 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.