A053797 -id:A053797 - cp's OEIS frontend

A377783 Least nonsquarefree number > prime(n).

4, 4, 8, 8, 12, 16, 18, 20, 24, 32, 32, 40, 44, 44, 48, 54, 60, 63, 68, 72, 75, 80, 84, 90, 98, 104, 104, 108, 112, 116, 128, 132, 140, 140, 150, 152, 160, 164, 168, 175, 180, 184, 192, 196, 198, 200, 212, 224, 228, 232, 234, 240, 242, 252, 260, 264, 270, 272

Offset: 1

Gus Wiseman, Nov 16 2024

nonn

No term appears more than twice. Proof: This would require at least 4 consecutive squarefree numbers (3 primes and at least 1 squarefree number between them). But we cannot have more than 3 consecutive squarefree numbers, because otherwise one of them must be divisible by 4, hence not squarefree.

			The third prime is 5, which is followed by 6, 7, 8, 9, ..., of which 8 is the first nonsquarefree term, so a(3) = 8.
The terms together with their prime indices begin:
    4: {1,1}
    4: {1,1}
    8: {1,1,1}
    8: {1,1,1}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   24: {1,1,1,2}
   32: {1,1,1,1,1}
   32: {1,1,1,1,1}
   40: {1,1,1,3}
   44: {1,1,5}
   44: {1,1,5}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
   60: {1,1,2,3}
   63: {2,2,4}
   68: {1,1,7}
   72: {1,1,1,2,2}

For squarefree we have A112926 (diffs A378037), opposite A112925 (diffs A378038).
Restriction to the primes of A120327, which has first differences A378039.
For prime-power instead of nonsquarefree (and primes + 1) we have A345531.
First differences are A377784.
The opposite is A378032 (diffs A378034), restriction of A378033 (diffs A378036).
The union is A378040.
Terms appearing only once are A378082.
Terms appearing twice are A378083.
Nonsquarefree numbers that are missing are A378084.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers.
A013929 lists the nonsquarefree numbers, differences A078147, seconds A376593.
A061398 counts squarefree numbers between primes, zeros A068360.
A061399 counts nonsquarefree numbers between primes, zeros A068361.
A070321 gives the greatest squarefree number up to n.
Cf. A000015, A013597, A013928, A014210, A053797, A053806, A065514, A072284, A120992, A224363, A337030, A377047, A377048, A377049, A377430, A377431.

Table[NestWhile[#+1&,Prime[n],SquareFreeQ],{n,100}]

a(n) = A120327(prime(n)).

Proof suggested by Amiram Eldar.

A377038 Array read by antidiagonals downward where A(n,k) is the n-th term of the k-th differences of the squarefree numbers.

Original entry on oeis.org

1, 2, 1, 3, 1, 0, 5, 2, 1, 1, 6, 1, -1, -2, -3, 7, 1, 0, 1, 3, 6, 10, 3, 2, 2, 1, -2, -8, 11, 1, -2, -4, -6, -7, -5, 3, 13, 2, 1, 3, 7, 13, 20, 25, 22, 14, 1, -1, -2, -5, -12, -25, -45, -70, -92, 15, 1, 0, 1, 3, 8, 20, 45, 90, 160, 252, 17, 2, 1, 1, 0, -3, -11, -31, -76, -166, -326, -578

Offset: 0

Gus Wiseman, Oct 18 2024

Row n is the k-th differences of A005117 = the squarefree numbers.

			Array form:
        n=1:  n=2:  n=3:  n=4:  n=5:  n=6:  n=7:  n=8:  n=9:
  ----------------------------------------------------------
  k=0:   1     2     3     5     6     7    10    11    13
  k=1:   1     1     2     1     1     3     1     2     1
  k=2:   0     1    -1     0     2    -2     1    -1     0
  k=3:   1    -2     1     2    -4     3    -2     1     1
  k=4:  -3     3     1    -6     7    -5     3     0    -2
  k=5:   6    -2    -7    13   -12     8    -3    -2     3
  k=6:  -8    -5    20   -25    20   -11     1     5    -5
  k=7:   3    25   -45    45   -31    12     4   -10    10
  k=8:  22   -70    90   -76    43    -8   -14    20   -19
  k=9: -92   160  -166   119   -51    -6    34   -39    28
Triangle form:
   1
   2   1
   3   1   0
   5   2   1   1
   6   1  -1  -2  -3
   7   1   0   1   3   6
  10   3   2   2   1  -2  -8
  11   1  -2  -4  -6  -7  -5   3
  13   2   1   3   7  13  20  25  22
  14   1  -1  -2  -5 -12 -25 -45 -70 -92
  15   1   0   1   3   8  20  45  90 160 252

Row k=0 is A005117.
Row k=1 is A076259.
Row k=2 is A376590.
The version for primes is A095195, noncomposites A376682, composites A377033.
A version for partitions is A175804, cf. A053445, A281425, A320590.
Triangle row-sums are A377039, absolute version A377040.
Column n = 1 is A377041, for primes A007442 or A030016.
First position of 0 in each row is A377042.
For nonsquarefree instead of squarefree numbers we have A377046.
For prime-powers instead of squarefree numbers we have A377051.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers, complement A013929 (differences A078147).
A073576 counts integer partitions into squarefree numbers, factorizations A050320.
Cf. A007674, A053797, A053806, A061398, A072284, A075526, A112925, A112926, A120992, A373198, A376311, A376591, A376592.

nn=9;
t=Table[Take[Differences[NestList[NestWhile[#+1&,#+1,!SquareFreeQ[#]&]&,1,2*nn],k],nn],{k,0,nn}]
Table[t[[j,i-j+1]],{i,nn},{j,i}]

A(i,j) = sum_{k=0..j} (-1)^(j-k) binomial(j,k) A005117(i+k).

A373575 Numbers k such that k and k-1 both have at least two distinct prime factors. First element of the n-th maximal antirun of non-prime-powers.

Original entry on oeis.org

1, 15, 21, 22, 34, 35, 36, 39, 40, 45, 46, 51, 52, 55, 56, 57, 58, 63, 66, 69, 70, 75, 76, 77, 78, 85, 86, 87, 88, 91, 92, 93, 94, 95, 96, 99, 100, 105, 106, 111, 112, 115, 116, 117, 118, 119, 120, 123, 124, 130, 133, 134, 135, 136, 141, 142, 143, 144, 145

Offset: 1

Gus Wiseman, Jun 18 2024

nonn

The last element of the same antirun is given by A255346.

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

			The maximal antiruns 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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Runs of prime-powers:
- length A174965
- min A373673
- max A373674
- sum A373675
Runs of non-prime-powers:
- length A110969
- min A373676
- max A373677
- sum A373678
Antiruns of prime-powers:
- length A373671
- min A120430
- max A006549
- sum A373576
Antiruns of non-prime-powers:
- length A373672
- min A373575 (this sequence)
- max A255346
- sum A373679
A000961 lists all powers of primes. A246655 lists just prime-powers.
A057820 gives first differences of consecutive prime-powers, gaps A093555.
A356068 counts non-prime-powers up to n.
A361102 lists all non-prime-powers (A024619 if not including 1).
Various run-lengths: A053797, A120992, A175632, A176246.
Various antirun-lengths: A027833, A373127, A373403, A373409.
Cf. A001359, A008864, A014963, A067774, A251092, A373669, A373670.

Select[Range[100],!PrimePowerQ[#]&&!PrimePowerQ[#-1]&]
Join[{1},SequencePosition[Table[If[PrimeNu[n]>1,1,0],{n,150}],{1,1}][[;;,2]]] (* Harvey P. Dale, Feb 23 2025 *)

A375707 First differences minus 1 of nonsquarefree numbers.

Original entry on oeis.org

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

A375927 Numbers k such that A005117(k+1) - A005117(k) = 1. In other words, the k-th squarefree number is 1 less than the next.

Original entry on oeis.org

1, 2, 4, 5, 7, 9, 10, 14, 15, 18, 19, 21, 22, 24, 25, 27, 28, 30, 35, 36, 38, 40, 41, 43, 44, 46, 48, 49, 51, 53, 54, 58, 59, 62, 63, 65, 66, 68, 69, 71, 72, 74, 76, 79, 80, 82, 84, 85, 87, 88, 90, 94, 96, 97, 101, 102, 105, 107, 108, 110, 111, 113, 114, 116

Offset: 1

Gus Wiseman, Sep 12 2024

nonn

The asymptotic density of this sequence is Product_{p prime} (1 - 1/(p^2-1)) = 0.53071182... (A065469). - Amiram Eldar, Sep 15 2024

			The squarefree numbers are 1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 30, ... which first increase by one after terms 1, 2, 4, 5, ...

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

Positions of 1's in A076259.
For prime-powers (A246655) we have A375734.
First differences are A373127.
For nonsquarefree instead of squarefree we have A375709.
For nonprime numbers we have A375926, differences A373403.
For composite numbers we have A375929.
The complement is A375930, differences A120992.
A005117 lists the squarefree numbers, first differences A076259.
A013929 lists the nonsquarefree numbers, first differences A078147.
A053797 gives lengths of runs of nonsquarefree numbers, firsts A373199.
A375707 counts squarefree numbers between consecutive nonsquarefree numbers.
Cf. A007674, A061399, A065469, A072284, A110969, A294242, A373409, A373410, A373573.

Join@@Position[Differences[Select[Range[100],SquareFreeQ[#]&]],1]

lista(kmax) = {my(is1 = 1, is2, c = 1); for(k = 2, kmax, is2 = issquarefree(k); if(is2, c++); if(is1 && is2, print1(c-1, ", ")); is1 = is2);} \\ Amiram Eldar, Sep 15 2024

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)

A378036 First differences of A378033 (greatest positive integer < n that is 1 or nonsquarefree).

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Nov 18 2024

nonn

Antti Karttunen, Table of n, a(n) for n = 1..65539

Positions of 0 are A005117 - 1, complement A013929 - 1.
Sums for squarefree numbers are A070321 (restriction A112925).
The restricted opposite is A377784, differences of A377783 (union A378040).
First-differences of A378033.
The restriction is A378034, differences of A378032.
The restricted opposite for squarefree is A378037, differences of A112926.
The opposite is A378039, differences of A120327 (union A162966).
For squarefree numbers we have A378085, restriction A378038.
The opposite for squarefree is A378087, differences of A067535.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers, differences A076259, seconds A376590.
A013929 lists the nonsquarefree numbers, differences A078147, seconds A376593.
A061398 counts squarefree numbers between primes (sums A337030), zeros A068360.
A061399 counts nonsquarefree numbers between primes (sums A378086), zeros A068361.
A377046 encodes k-differences of nonsquarefree numbers, zeros A377050.
Cf. A053797, A053806, A065514, A377047, A377048, A377049, A377703, A378082, A378083, A378084.

Differences[Table[NestWhile[#-1&,n,#>1&&SquareFreeQ[#]&],{n,100}]]

A378033(n) = if(n<=3, 1, forstep(k=n, 0, -1, if(!issquarefree(k), return(k))));
A378036(n) = (A378033(1+n)-A378033(n)); \\ Antti Karttunen, Jan 28 2025

a(prime(n)) = A378034(n).

Data section extended to a(107) by Antti Karttunen, Jan 28 2025

A378037 First differences of A112926 (smallest squarefree integer > prime(n)).

Original entry on oeis.org

2, 1, 4, 3, 1, 5, 2, 5, 4, 3, 5, 4, 4, 5, 4, 6, 1, 7, 4, 1, 8, 3, 6, 10, 1, 3, 4, 1, 4, 15, 4, 5, 3, 10, 3, 4, 7, 5, 4, 7, 1, 11, 1, 5, 2, 12, 13, 3, 1, 5, 6, 5, 7, 5, 7, 6, 2, 5, 4, 3, 10, 14, 4, 1, 4, 16, 5, 10, 4, 1, 8, 8, 4, 7, 4, 5, 8, 4, 8, 11, 1, 11, 1

Offset: 1

Gus Wiseman, Dec 04 2024

nonn

First differences of A112926, restriction of A067535, differences A378087.
For prime powers we have A377703.
The nonsquarefree version is A377784 (differences of A377783), restriction of A378039.
The nonsquarefree opposite is A378034, first differences of A378032.
The opposite is A378038, differences of A112925.
The unrestricted opposite is A378085 except first term, differences of A070321.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers.
A013929 lists the nonsquarefree numbers, differences A078147, seconds A376593.
A061398 counts squarefree numbers between primes, zeros A068360.
A061399 counts nonsquarefree numbers between primes, zeros A068361.
Cf. A007674, A013928, A045882, A053797, A053806, A072284, A073247, A120327, A280892, A378036, A378040, A378084.

Differences[Table[NestWhile[#+1&,Prime[n]+1,!SquareFreeQ[#]&],{n,100}]]

A378038 First differences of A112925 = greatest squarefree number < prime(n).

Original entry on oeis.org

1, 1, 3, 4, 1, 4, 2, 5, 4, 4, 5, 4, 3, 4, 5, 7, 1, 7, 4, 1, 7, 4, 5, 8, 2, 5, 4, 1, 4, 12, 7, 4, 4, 8, 3, 6, 6, 5, 4, 8, 1, 11, 1, 4, 2, 13, 12, 4, 1, 4, 7, 1, 10, 6, 7, 5, 2, 5, 4, 4, 9, 14, 5, 1, 3, 16, 5, 11, 1, 2, 9, 8, 5, 6, 5, 4, 9, 4, 8, 11, 1, 11, 1, 7

Offset: 1

Gus Wiseman, Dec 04 2024

nonn

First differences of A112925, restriction of A070321, differences A378085.
For prime powers we have A377781, opposite A377703.
The nonsquarefree opposite is A377784 (differences of A377783), restriction of A378039.
The nonsquarefree version is A378034, first differences of A378032.
The opposite is A378037, differences of A112926.
The unrestricted opposite is A378087, differences of A067535.
A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers.
A013929 lists the nonsquarefree numbers, differences A078147, seconds A376593.
A061398 counts squarefree numbers between primes, zeros A068360.
A061399 counts nonsquarefree numbers between primes, zeros A068361.
Cf. A007674, A013928, A045882, A053797, A053806, A072284, A073247, A120327, A280892, A378036, A378040, A378084.

Differences[Table[NestWhile[#-1&,Prime[n]-1,!SquareFreeQ[#]&],{n,100}]]

cp's OEIS Frontend

A377783 Least nonsquarefree number > prime(n).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A377038 Array read by antidiagonals downward where A(n,k) is the n-th term of the k-th differences of the squarefree numbers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A373575 Numbers k such that k and k-1 both have at least two distinct prime factors. First element of the n-th maximal antirun of non-prime-powers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

A375927 Numbers k such that A005117(k+1) - A005117(k) = 1. In other words, the k-th squarefree number is 1 less than the next.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

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

A378036 First differences of A378033 (greatest positive integer < n that is 1 or nonsquarefree).

Views

Author

Keywords

Links

Crossrefs