The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #8 Oct 02 2021 03:47:16
%S 8,24,48,49,63,80,175,224,242,288,324,350,351,360,512,539,575,675,735,
%T 832,960,1088,1215,1224,1368,1444,1681,1700,1862,2057,2106,2299,2303,
%U 2375,2400,2600,2624,2645,2808,3024,3249,3750,3887,3968,4224,4374,4624,4900,5040
%N Numbers k such that k and k+1 are both numbers whose powerful part is larger than their powerfree part (A328014).
%H Amiram Eldar, <a href="/A348119/b348119.txt">Table of n, a(n) for n = 1..10000</a>
%e 8 is a term since both 8 and 9 are in A328014.
%t f[p_, e_] := If[e==1, p, 1]; s[n_] := Times @@ (f @@@ FactorInteger[n]); Select[Range[5040], s[#]^2 < # && s[#+1]^2 < #+1 &]
%Y Cf. A328014.
%Y A060355 is a subsequence.
%K nonn
%O 1,1
%A _Amiram Eldar_, Oct 01 2021