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,1

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A328014.

A060355 is a subsequence.

Sequence in context: A074348 A063403 A355433 * A306415 A122812 A022763

Adjacent sequences: A348116 A348117 A348118 * A348120 A348121 A348122

Keyword

nonn

Author

Amiram Eldar, Oct 01 2021

Status

approved