A251092 -id:A251092 - cp's OEIS frontend

A375707 First differences minus 1 of nonsquarefree numbers.

3, 0, 2, 3, 1, 1, 3, 0, 1, 0, 3, 3, 3, 3, 0, 2, 0, 0, 1, 1, 1, 3, 2, 0, 3, 3, 2, 0, 3, 0, 2, 3, 1, 1, 3, 1, 0, 0, 3, 3, 3, 3, 0, 2, 0, 2, 0, 0, 1, 3, 2, 0, 3, 3, 2, 0, 1, 1, 0, 2, 3, 1, 1, 3, 0, 1, 0, 2, 0, 3, 3, 3, 0, 2, 3, 1, 1, 3, 2, 0, 3, 3, 3, 3, 0, 2, 3

Offset: 1

Gus Wiseman, Sep 16 2024

Also the number of squarefree numbers between the nonsquarefree numbers A013929(n) and A013929(n+1).
Delete all 0's to get A120992.
The image is {0,1,2,3}.
Add 1 to all terms for A078147.

			The runs of squarefree numbers begin:
  (5,6,7)
  ()
  (10,11)
  (13,14,15)
  (17)
  (19)
  (21,22,23)
  ()
  (26)
  ()
  (29,30,31)
  (33,34,35)

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

Positions of 0, 1, 2, 3 are A375709, A375710, A375711, A375712. This is a set partition of the positive integers into four blocks.
For runs of squarefree numbers:
- length: A120992, anti A373127
- min: A072284, anti A373408
- max: A373415, anti A007674
- sum: A373413, anti A373411
For runs of nonsquarefree numbers:
- length: A053797, anti A373409
- min: A053806, anti A373410
- max: A376164, anti A068781
- sum: A373414, anti A373412
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
A046933 counts composite numbers between consecutive primes.
A073784 counts primes between consecutive composite numbers.
A093555 counts non-prime-powers between consecutive prime-powers.
Cf. A061398, A061399, A077641, A077643, A143658, A173143, A251092, A294242, A373125, A373126, A373573.

Differences[Select[Range[100],!SquareFreeQ[#]&]]-1

lista(nmax) = {my(prev = 4); for (n = 5, nmax, if(!issquarefree(n), print1(n - prev - 1, ", "); prev = n));} \\ Amiram Eldar, Sep 17 2024

Asymptotic mean: lim_{n->oo} (1/n) Sum_{k=1..n} a(k) = 6/(Pi^2-6) = 1.550546... . - Amiram Eldar, Sep 17 2024

A373674 Last element of each maximal run of powers of primes (including 1).

Original entry on oeis.org

5, 9, 11, 13, 17, 19, 23, 25, 27, 29, 32, 37, 41, 43, 47, 49, 53, 59, 61, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 121, 125, 128, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239

Offset: 1

Gus Wiseman, Jun 16 2024

nonn

A run of a sequence (in this case A000961) is an interval of positions at which consecutive terms differ by one.
The first element of the same run is A373673.
Consists of all powers of primes k such that k+1 is not a power of primes.

			The maximal runs of powers of primes begin:
   1   2   3   4   5
   7   8   9
  11
  13
  16  17
  19
  23
  25
  27
  29
  31  32
  37
  41
  43
  47
  49

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers.

For prime antiruns we have A001359, min A006512, length A027833.
For composite runs we have A006093, min A008864, length A176246.
For prime runs we have A067774, min A025584, length A251092 or A175632.
For squarefree runs we have A373415, min A072284, length A120992.
For nonsquarefree runs we have min A053806, length A053797.
For runs of prime-powers:
- length A174965
- min A373673
- max A373674 (this sequence)
- sum A373675
For runs of non-prime-powers:
- length A110969 (firsts A373669, sorted A373670)
- min A373676
- max A373677
- sum A373678
For antiruns of prime-powers:
- length A373671
- min A120430
- max A006549
- sum A373576
For antiruns of non-prime-powers:
- length A373672
- min A373575
- max A255346
- sum A373679
A000961 lists all powers of primes (A246655 if not including 1).
A025528 counts prime-powers up to n.
A057820 gives first differences of consecutive prime-powers, gaps A093555.
A361102 lists all non-prime-powers (A024619 if not including 1).
Cf. A000040, A005381, A007674, A014963, A068780, A068781, A073051, A373400.

pripow[n_]:=n==1||PrimePowerQ[n];
Max/@Split[Select[Range[nn],pripow],#1+1==#2&]//Most

A377049 First term of the n-th differences of the nonsquarefree numbers. Inverse zero-based binomial transform of A013929.

Original entry on oeis.org

4, 4, -3, 5, -6, 4, 3, -15, 25, -10, -84, 369, -1067, 2610, -5824, 12246, -24622, 47577, -88233, 155962, -259086, 393455, -512281, 456609, 191219, -2396571, 8213890, -21761143, 50923029, -110269263, 225991429, -444168664, 844390152, -1561482492, 2817844569

Offset: 0

Gus Wiseman, Oct 19 2024

sign

Harvey P. Dale, Table of n, a(n) for n = 0..400

The version for primes is A007442, noncomposites A030016, composites A377036.
For squarefree instead of nonsquarefree numbers we have A377041.
For antidiagonal-sums we have A377047, absolute A377048.
For first position of 0 in each row we have A377050.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers.
A013929 lists the nonsquarefree numbers, differences A078147, seconds A376593.
A073576 counts integer partitions into squarefree numbers, factorizations A050320.
Cf. A007674, A053797, A053806, A061398, A072284, A075526, A084758, A112925, A120992, A251092, A376311, A376591.

nn=20;
Table[First[Differences[NestList[NestWhile[#+1&, #+1,SquareFreeQ[#]&]&,4,2*nn],k]],{k,0,nn}]
With[{nsf=Select[Range[1000],!SquareFreeQ[#]&]},Table[Differences[nsf,n],{n,0,40}]][[;;,1]] (* Harvey P. Dale, Nov 28 2024 *)

The inverse zero-based binomial transform of a sequence (q(0), q(1), q(2), ...) is the sequence p given by:

p(j) = sum_{k=0..j} (-1)^(j-k) binomial(j,k) q(k)

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

Gus Wiseman, Jun 08 2024

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.

			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.

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers

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.

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]}]

A373400 Numbers k such that the k-th maximal run of composite numbers has length different from all prior maximal runs. Sorted positions of first appearances in A176246 (or A046933 shifted).

Original entry on oeis.org

1, 3, 8, 23, 29, 33, 45, 98, 153, 188, 216, 262, 281, 366, 428, 589, 737, 1182, 1830, 1878, 2190, 2224, 3076, 3301, 3384, 3426, 3643, 3792, 4521, 4611, 7969, 8027, 8687, 12541, 14356, 14861, 15782, 17005, 19025, 23282, 30801, 31544, 33607, 34201, 34214, 38589

Offset: 1

Gus Wiseman, Jun 10 2024

nonn

The unsorted version is A073051.

A run of a sequence (in this case A002808) is an interval of positions at which consecutive terms differ by one.

			The maximal runs of composite numbers begin:
   4
   6
   8   9  10
  12
  14  15  16
  18
  20  21  22
  24  25  26  27  28
  30
  32  33  34  35  36
  38  39  40
  42
  44  45  46
  48  49  50  51  52
  54  55  56  57  58
  60
  62  63  64  65  66
  68  69  70
  72
  74  75  76  77  78
  80  81  82
  84  85  86  87  88
  90  91  92  93  94  95  96
  98  99 100
The a(n)-th rows are:
   4
   8   9  10
  24  25  26  27  28
  90  91  92  93  94  95  96
 114 115 116 117 118 119 120 121 122 123 124 125 126
 140 141 142 143 144 145 146 147 148
 200 201 202 203 204 205 206 207 208 209 210

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers

The unsorted version is A073051, firsts of A176246.
For squarefree runs we have the triple (1,3,5), firsts of A120992.
For prime runs we have the triple (1,2,3), firsts of A175632.
For squarefree antiruns we have A373128, firsts of A373127.
For nonsquarefree runs we have A373199 (assuming sorted), firsts of A053797.
For prime antiruns we have A373402, unsorted A373401, firsts of A027833.
For composite runs we have the triple (1,2,7), firsts of A373403.
A000040 lists the primes, differences A001223.
A002808 lists the composite numbers, differences A073783.
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
Cf. A006512, A007674, A049093, A068781, A072284, A077641, A174965, A251092, A373198, A373408, A373411.

t=Length/@Split[Select[Range[10000],CompositeQ],#1+1==#2&]//Most;
Select[Range[Length[t]],FreeQ[Take[t,#-1],t[[#]]]&]

A375702 Length of the n-th maximal run of adjacent (increasing by one at a time) non-perfect-powers.

Original entry on oeis.org

2, 3, 6, 8, 1, 4, 3, 12, 14, 16, 18, 20, 3, 2, 15, 24, 26, 19, 8, 17, 12, 32, 34, 18, 17, 38, 40, 42, 27, 16, 46, 48, 50, 52, 54, 56, 58, 60, 38, 23, 64, 66, 68, 70, 34, 37, 74, 76, 78, 80, 46, 35, 84, 86, 88, 22, 67, 70, 9, 11, 94, 96, 98, 100, 102, 39, 64

Offset: 1

Gus Wiseman, Aug 27 2024

nonn

Non-perfect-powers A007916 are numbers with no proper integer roots.

			The list of all non-perfect-powers, split into runs, begins:
   2   3
   5   6   7
  10  11  12  13  14  15
  17  18  19  20  21  22  23  24
  26
  28  29  30  31
  33  34  35
  37  38  39  40  41  42  43  44  45  46  47  48
Row n has length a(n), first A375703, last A375704, sum A375705.

For nonsquarefree numbers we have A053797, anti-runs A373409.
For squarefree numbers we have A120992, anti-runs A373127.
For nonprime numbers we have A176246, anti-runs A373403.
For prime-powers we have A373675, anti-runs A373576.
For non-prime-powers we have A373678, anti-runs A373679.
The anti-run version is A375736, sum A375737.
For runs of non-perfect-powers (A007916):
- length: A375702 (this).
- first: A375703
- last: A375704
- sum: A375705
A001597 lists perfect-powers, differences A053289.
A007916 lists non-perfect-powers, differences A375706.
A046933 counts composite numbers between primes.
Cf. A007674, A045542, A061399, A216765, A251092, A375708, A375714.

radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
Length/@Split[Select[Range[100],radQ],#1+1==#2&]//Most

For n > 2 we have a(n) = A053289(n+1) - 1.

A376602 Inflection and undulation points in the sequence of composite numbers (A002808).

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 14, 15, 16, 18, 20, 21, 22, 25, 27, 29, 32, 33, 34, 37, 38, 39, 41, 43, 44, 45, 48, 50, 52, 53, 54, 57, 60, 61, 62, 65, 66, 67, 68, 69, 72, 74, 76, 78, 80, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 96, 99, 100, 101, 103, 105, 106, 107, 108

Offset: 1

Gus Wiseman, Oct 05 2024

nonn

These are points at which the second differences (A073445) are zero.

			The composite numbers (A002808) are:
  4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, 32, 33, ...
with first differences (A073783):
  2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, ...
with first differences (A073445):
  0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, -1, 0, 0, 0, 1, 0, -1, 0, 0, 0, 1, -1, 0, ...
with zeros at (A376602):
  1, 3, 5, 7, 9, 11, 14, 15, 16, 18, 20, 21, 22, 25, 27, 29, 32, 33, 34, 37, 38, ...

Wikipedia, Inflection point
Gus Wiseman, Inflection and undulation points in the sequence of composite numbers.

Partitions into composite numbers are counted by A023895, factorizations A050370.
For prime instead of composite we have A064113.
These are the positions of zeros in A073445.
For first differences we had A073783, ones A375929, complement A065890.
For concavity in primes we have A258025/A258026, weak A333230/A333231.
For upward concavity (instead of zero) we have A376651, downward A376652.
The complement is A376603.
For composite numbers: A002808 (terms), A073783 (first differences), A073445 (second differences), A376603 (nonzero curvature), A376651 (concave-up), A376652 (concave-down).
For inflection and undulation points: A064113 (prime), A376588 (non-perfect-power), A376591 (squarefree), A376594 (nonsquarefree), A376597 (prime-power), A376600 (non-prime-power).
Cf. A000040, A036263, A251092, A333214, A333216, A333254.

Join@@Position[Differences[Select[Range[100],CompositeQ],2],0]

A373128 Least k such that the k-th maximal antirun of squarefree numbers has length n. Position of first appearance of n in A373127.

Original entry on oeis.org

1, 3, 10, 8, 19, 162, 1853, 2052, 1633, 26661, 46782, 3138650, 1080330

Offset: 1

Gus Wiseman, Jun 08 2024

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

			The maximal antiruns of squarefree numbers begin:
   1
   2
   3   5
   6
   7  10
  11  13
  14
  15  17  19  21
  22
  23  26  29
  30
  31  33
  34
  35  37
The a(n)-th rows are:
    1
    3    5
   23   26   29
   15   17   19   21
   47   51   53   55   57
  483  485  487  489  491  493
For example, (23, 26, 29) is the first maximal antirun of 3 squarefree numbers, so a(3) = 10.

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers

For composite instead of squarefree we have A073051.
Positions of first appearances in A373127.
The version for nonsquarefree runs is A373199, firsts of A053797.
For prime instead of squarefree we have A373401, firsts of A027833.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
Cf. A006512, A007674, A049093, A068781, A072284, A077641, A120992, A174965, A251092, A373198, A373408, A373411.

t=Length/@Split[Select[Range[10000],SquareFreeQ[#]&],#1+1!=#2&]//Most;
spnm[y_]:=Max@@NestWhile[Most,y,Union[#]!=Range[Max@@#]&];
Table[Position[t,k][[1,1]],{k,spnm[t]}]

A373401 Least k such that the k-th maximal antirun of prime numbers > 3 has length n. Position of first appearance of n in A027833. The sequence ends if no such antirun exists.

Original entry on oeis.org

1, 2, 4, 6, 10, 8, 69, 40, 24, 46, 41, 21, 140, 82, 131, 210, 50, 199, 35, 30, 248, 192, 277, 185, 458, 1053, 251, 325, 271, 645, 748, 815, 811, 1629, 987, 826, 1967, 423, 1456, 2946, 1109, 406, 1870, 1590, 3681, 2920, 3564, 6423, 1426, 5953, 8345, 12687, 6846

Offset: 1

Gus Wiseman, Jun 09 2024

nonn

The sorted version is A373402.

For this sequence, we define an antirun to be an interval of positions at which consecutive primes differ by at least 3.

			The maximal antiruns of prime numbers > 3 begin:
    5
    7  11
   13  17
   19  23  29
   31  37  41
   43  47  53  59
   61  67  71
   73  79  83  89  97 101
  103 107
  109 113 127 131 137
  139 149
  151 157 163 167 173 179
The a(n)-th rows are:
     5
     7   11
    19   23   29
    43   47   53   59
   109  113  127  131  137
    73   79   83   89   97  101
  2269 2273 2281 2287 2293 2297 2309
  1093 1097 1103 1109 1117 1123 1129 1151
   463  467  479  487  491  499  503  509  521
For example, (19, 23, 29) is the first maximal antirun of length 3, so a(3) = 4.

Gus Wiseman, Four statistics for runs and antiruns of prime, nonprime, squarefree, and nonsquarefree numbers.

For composite instead of prime we have A073051.
For runs instead of antiruns we have the triple (4,2,1), firsts of A251092.
For squarefree instead of prime we have A373128, firsts of A373127.
The sorted version is A373402.
A000040 lists the primes, differences A001223.
A002808 lists the composite numbers, differences A073783.
A046933 counts composite numbers between primes.
Cf. A001359, A005117, A027833, A006512, A053797, A373199, A373405.

t=Length/@Split[Select[Range[4,100000],PrimeQ],#1+2!=#2&]//Most;
spna[y_]:=Max@@Select[Range[Length[y]],SubsetQ[t,Range[#]]&];
Table[Position[t,k][[1,1]],{k,spna[t]}]

A375714 Positions of non-successions of consecutive non-perfect-powers. Numbers k such that the k-th non-perfect-power is at least two fewer than the next.

Original entry on oeis.org

2, 5, 11, 19, 20, 24, 27, 39, 53, 69, 87, 107, 110, 112, 127, 151, 177, 196, 204, 221, 233, 265, 299, 317, 334, 372, 412, 454, 481, 497, 543, 591, 641, 693, 747, 803, 861, 921, 959, 982, 1046, 1112, 1180, 1250, 1284, 1321, 1395, 1471, 1549, 1629, 1675, 1710

Offset: 1

Gus Wiseman, Sep 10 2024

nonn

Non-perfect-powers (A007916) are numbers with no proper integer roots.

			The initial non-perfect-powers are 2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 18, which increase by more than one after term 2, term 5, term 11, etc.

First differences are A375702.
Positions of terms > 1 in A375706 (differences of A007916).
The complement for non-prime-powers is A375713, differences A373672.
The complement is A375740.
The version for non-prime-powers is A375928, differences A110969.
Prime-powers inclusive:
- terms: A000961
- differences: A057820
- runs: A373675, A373673, A373674, A174965
- antiruns: A373576, A120430, A006549, A373671
Non-prime-powers inclusive:
- terms: A361102
- differences: A375708
- runs: A373678, A373676, A373677, A110969
- antiruns: A373679, A373575, A255346, A373672
Cf. A000040, A001223, A046933, A053289, A073783, A246655, A251092, A375734.

radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
ce=Select[Range[100],radQ];
Select[Range[Length[ce]-1],!ce[[#+1]]==ce[[#]]+1&]

from itertools import count, islice
from sympy import perfect_power
def A375714_gen(): # generator of terms
    a, b = -1, 0
    for n in count(1):
        c = not perfect_power(n)
        if c:
            a += 1
        if b&(c^1):
            yield a
        b = c
A375714_list = list(islice(A375714_gen(),52)) # Chai Wah Wu, Sep 11 2024

A007916(a(n)+1) - A007916(a(n)) > 1.

cp's OEIS Frontend

A375707 First differences minus 1 of nonsquarefree numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A373674 Last element of each maximal run of powers of primes (including 1).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A377049 First term of the n-th differences of the nonsquarefree numbers. Inverse zero-based binomial transform of A013929.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A373400 Numbers k such that the k-th maximal run of composite numbers has length different from all prior maximal runs. Sorted positions of first appearances in A176246 (or A046933 shifted).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A375702 Length of the n-th maximal run of adjacent (increasing by one at a time) non-perfect-powers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A376602 Inflection and undulation points in the sequence of composite numbers (A002808).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A373128 Least k such that the k-th maximal antirun of squarefree numbers has length n. Position of first appearance of n in A373127.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs