A348119 Numbers k such that k and k+1 are both numbers whose powerful part is larger than their powerfree part (A328014).

8, 24, 48, 49, 63, 80, 175, 224, 242, 288, 324, 350, 351, 360, 512, 539, 575, 675, 735, 832, 960, 1088, 1215, 1224, 1368, 1444, 1681, 1700, 1862, 2057, 2106, 2299, 2303, 2375, 2400, 2600, 2624, 2645, 2808, 3024, 3249, 3750, 3887, 3968, 4224, 4374, 4624, 4900, 5040

Offset: 1

Author

Amiram Eldar, Oct 01 2021

Keywords

• nonn

Examples

			8 is a term since both 8 and 9 are in A328014.
		

Links

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

Crossrefs

Cf. A328014.

A060355 is a subsequence.

Programs

Mathematica

f[p_, e_] := If[e==1, p, 1]; s[n_] := Times @@ (f @@@ FactorInteger[n]); Select[Range[5040], s[#]^2 < # && s[#+1]^2 < #+1 &]