A377783 -id:A377783 - cp's OEIS frontend

A377781 First differences of A065514(n) = greatest number < prime(n) that is 1 or a prime-power.

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

Offset: 1

Gus Wiseman, Nov 14 2024

nonn

Note 1 is a power of a prime but not a prime-power.

Differences of A065514, which is the restriction of A031218 (differences A377782).
The opposite is A377703 (restriction of A000015), differences of A345531.
The opposite for nonsquarefree is A377784, differences of A377783.
For nonsquarefree we have A378034, differences of A378032 (restriction of A378033).
The opposite for squarefree is A378037, differences of A112926 (restriction of A067535).
For squarefree we have A378038, differences of A112925 (restriction of A070321).
A000040 lists the primes, differences A001223.
A000961 and A246655 list the prime-powers, differences A057820.
A024619 lists the non-prime-powers, differences A375735, seconds A376599.
A361102 lists the non-powers of primes, differences A375708.
Prime-powers between primes:
- A053607 primes
- A080101 count (exclusive)
- A304521 by bits
- A366833 count
- A377057 positive
- A377286 zero
- A377287 one
- A377288 two
Cf. A001597, A007916, A008864, A053289, A120327, A343249, A375706, A377281, A377282, A377289.

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

A378087 First-differences of A067535 (least positive integer >= n that is squarefree).

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Nov 20 2024

nonn

Does this contain all nonnegative integers? The positions of first appearances begin: 4, 1, 3, 7, 47, 241, 843, 22019, 217069, ...

Ones are A007674.
Zeros are A013929, complement A005117.
Positions of first appearances are A020754 (except first term) = A045882 - 1.
First-differences of A067535.
Twos are A280892.
For prime-powers we have A377780, differences of A000015.
The nonsquarefree opposite is A378036, differences of A378033.
The restriction to primes + 1 is A378037 (opposite A378038), differences of A112926.
For nonsquarefree numbers we have A378039, see A377783, A377784, A378040.
The opposite is A378085, 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. A005117, A007675, A068781, A073247, A073248, A378084.
Cf. A013928, A053797, A053806, A072284, A120327, A224363.

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

A378618 Sum of nonsquarefree numbers between prime(n) and prime(n+1).

Original entry on oeis.org

0, 4, 0, 17, 12, 16, 18, 20, 104, 0, 68, 40, 0, 89, 199, 110, 60, 127, 68, 72, 151, 161, 172, 278, 297, 0, 104, 108, 112, 849, 128, 403, 0, 579, 150, 461, 322, 164, 680, 351, 180, 561, 192, 196, 198, 819, 648, 449, 228, 232, 470, 240, 1472, 508, 521, 532, 270

Offset: 1

Gus Wiseman, Dec 09 2024

nonn

			The nonsquarefree numbers between prime(24) = 89 and prime(25) = 97 are {90, 92, 96}, so a(24) = 278.

For prime instead of nonsquarefree we have A001043.
For composite instead of nonsquarefree we have A054265.
Zeros are A068361.
A000040 lists the primes, differences A001223, seconds A036263.
A070321 gives the greatest squarefree number up to n.
A071403 counts squarefree numbers up to prime(n), restriction of A013928.
A120327 gives the least nonsquarefree number >= n.
A378086 counts nonsquarefree numbers up to prime(n), restriction of A057627.
For squarefree numbers (A005117, differences A076259) between primes:
- length is A061398, zeros A068360
- min is A112926, differences A378037
- max is A112925, differences A378038
- sum is A373197
For nonsquarefree numbers (A013929, differences A078147) between primes:
- length is A061399
- min is A377783 (differences A377784), union A378040
- max is A378032 (differences A378034), restriction of A378033 (differences A378036)
- sum is A378618 (this)
Cf. A007674, A045882, A053806, A067535, A072284, A073247, A179211, A224363, A373198, A377049, A377431.

Table[Total[Select[Range[Prime[n],Prime[n+1]],!SquareFreeQ[#]&]],{n,100}]

A378617 First differences of A378249 (next perfect power after prime(n)).

Original entry on oeis.org

0, 4, 0, 8, 0, 9, 0, 0, 7, 0, 17, 0, 0, 0, 15, 0, 0, 17, 0, 0, 0, 19, 0, 0, 21, 0, 0, 0, 0, 7, 16, 0, 0, 25, 0, 0, 0, 0, 27, 0, 0, 0, 0, 20, 0, 0, 9, 18, 0, 0, 0, 0, 13, 33, 0, 0, 0, 0, 0, 0, 35, 0, 0, 0, 0, 19, 0, 18, 0, 0, 0, 39, 0, 0, 0, 0, 0, 41, 0, 0, 0

Offset: 1

Gus Wiseman, Dec 09 2024

nonn

This is the next perfect power after prime(n+1), minus the next perfect power after prime(n).

Perfect powers (A001597) are 1 and numbers with a proper integer root, complement A007916.

Positions of positives are A377283.
Positions of zeros are A377436.
The restriction to primes has first differences A377468.
A version for nonsquarefree numbers is A377784, differences of A377783.
The opposite is differences of A378035 (restriction of A081676).
First differences of A378249, run-lengths A378251.
Without zeros we have differences of A378250.
A000040 lists the primes, differences A001223.
A001597 lists the perfect powers, differences A053289.
A007916 lists the non perfect powers, differences A375706.
A069623 counts perfect powers <= n.
A076411 counts perfect powers < n.
A377432 counts perfect powers between primes.
A378356 - 1 gives next prime after perfect powers, union A378365 - 1.
Cf. A000015, A007918, A023055, A045542, A052410, A065514, A076412, A188951, A216765, A377431, A377434.

perpowQ[n_]:=n==1||GCD@@FactorInteger[n][[All,2]]>1;
Table[NestWhile[#+1&,Prime[n],Not@*perpowQ],{n,100}]//Differences

A380413 Terms appearing twice in A378086 (number of nonsquarefree numbers < prime(n)).

Original entry on oeis.org

0, 1, 11, 14, 39, 53, 109, 179, 222, 240, 251, 319, 337, 481, 505, 508, 578, 664, 674, 738, 818, 835, 877, 905, 933, 1041, 1069, 1098, 1325, 1352, 1392, 1535, 1539, 1567, 1652, 1663, 1732, 1817, 1849, 1960, 2134, 2148, 2158, 2220, 2387, 2428, 2457, 2622, 2625

Offset: 1

Gus Wiseman, Feb 06 2025

nonn

A000040 lists the primes, differences A001223, seconds A036263.
A005117 lists the squarefree numbers, differences A076259.
A013929 lists the nonsquarefree numbers, differences A078147, seconds A376593.
A061399 counts nonsquarefree integers between primes, see A068361, A061398, A068360, A377783, A378086.
A070321 gives the greatest squarefree number up to n.
A071403 counts squarefree numbers < prime(n), see A373198, A337030.
A112925 gives the greatest squarefree number between primes, least A112926.
Cf. A057627, A065890, A378032 (differences A378034), A378033 (differences A378036).
Cf. A072284, A120327, A224363, A378040, A378082, A378084.

y=Table[Length[Select[Range[Prime[n]],!SquareFreeQ[#]&]],{n,100}];
Select[Most[Union[y]],Count[y,#]==2&]

a(n) = A378086(A068361(n)) = A378086(A068361(n)+1).

cp's OEIS Frontend

A377781 First differences of A065514(n) = greatest number < prime(n) that is 1 or a prime-power.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A378087 First-differences of A067535 (least positive integer >= n that is squarefree).

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A378618 Sum of nonsquarefree numbers between prime(n) and prime(n+1).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A378617 First differences of A378249 (next perfect power after prime(n)).

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A380413 Terms appearing twice in A378086 (number of nonsquarefree numbers < prime(n)).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula