A349234 -id:A349234 - cp's OEIS frontend

A349233 Numbers k such that k and k+2 are consecutive cubefree numbers.

7, 15, 23, 26, 31, 39, 47, 53, 55, 63, 71, 87, 95, 103, 107, 111, 119, 124, 127, 143, 151, 159, 161, 167, 175, 183, 188, 191, 199, 207, 215, 223, 231, 239, 242, 247, 249, 255, 263, 269, 271, 279, 287, 303, 311, 319, 323, 327, 335, 359, 367, 377, 383, 391, 399

Offset: 1

Amiram Eldar, Nov 11 2021

nonn

The asymptotic density of this sequence is 0.142325864924778... (Mossinghoff et al., 2021).

			7 is a term since 7 and 7 + 2 = 9 = 3^2 are cubefree, and 7 + 1 = 8 = 2^3 is not.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Michael J. Mossinghoff, Tomás Oliveira e Silva, and Tim Trudgian, The distribution of k-free numbers, Mathematics of Computation, Vol. 90, No. 328 (2021), pp. 907-929; arXiv preprint, arXiv:1912.04972 [math.NT], 2019-2020.

Cf. A004709, A046099, A340152, A349234, A349235.

cubeFreeQ[n_] := AllTrue[FactorInteger[n][[;; , 2]], # < 3 &]; Select[Range[400], Boole[cubeFreeQ /@ (# + {0, 1, 2})] == {1, 0, 1} &]

A349235 Numbers k such that k and k+4 are consecutive cubefree numbers.

Original entry on oeis.org

1374, 4373, 4911, 5749, 6857, 13309, 13374, 16118, 21247, 24351, 25622, 28374, 31373, 32749, 33613, 40471, 41741, 48247, 49623, 49733, 52622, 55374, 57966, 58373, 59749, 75247, 76623, 79622, 82374, 85373, 86749, 90206, 94470, 98439, 102247, 103623, 106622, 107701

Offset: 1

Amiram Eldar, Nov 11 2021

nonn

The asymptotic density of this sequence is 0.000379098586237504... (Mossinghoff et al., 2021).

			1374 is a term since 1374 = 2*3*229 and 1374 + 4 = 1378 = 2*13*53 are cubefree, and 1374 + 1 = 1375 = 5^3*11, 1374 + 2 = 1376 = 2^5*43 and 1374 + 3 = 1377 = 3^4*17 are not.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Michael J. Mossinghoff, Tomás Oliveira e Silva, and Tim Trudgian, The distribution of k-free numbers, Mathematics of Computation, Vol. 90, No. 328 (2021), pp. 907-929; arXiv preprint, arXiv:1912.04972 [math.NT], 2019-2020.

Cf. A004709, A046099, A340152, A349233, A349234.

cubeFreeQ[n_] := AllTrue[FactorInteger[n][[;; , 2]], # < 3 &]; Select[Range[10^5], Boole[cubeFreeQ /@ (# + Range[0, 4])] == {1, 0, 0, 0, 1} &]

cp's OEIS Frontend

A349233 Numbers k such that k and k+2 are consecutive cubefree numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica