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