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 A348120 #7 Oct 02 2021 03:47:20 %S A348120 48,350,9800,11374,31211,32798,48373,59534,63000,103246,118579,373827, %T A348120 488187,625974,629693,830464,1193983,1294298,2989439,3815174,4231248, %U A348120 5132699,5331248,6674166,7616950,7970157,8388223,8670375,9235520,9516680,9841094,11121382,12708359 %N A348120 Starts of runs of 3 consecutive numbers whose powerful part is larger than their powerfree part (A328014). %C A348120 There are no runs of 4 consecutive numbers below 10^10. %C A348120 It is conjectured that there are no runs of 3 consecutive numbers that are powerful (A001694), but if they do exist, their starts are contained in this sequence. %H A348120 Amiram Eldar, <a href="/A348120/b348120.txt">Table of n, a(n) for n = 1..280</a> %e A348120 48 is a term since 48, 49 and 50 are all in A328014. %t A348120 f[p_, e_] := If[e==1, p, 1]; s[n_] := Times @@ (f @@@ FactorInteger[n]); q[n_] := s[n]^2 < n; v = q /@ Range[3]; seq = {}; Do[v = Append[Drop[v, 1], q[k]]; If[And @@ v, AppendTo[seq, k - 2]], {k, 4, 10^6}]; seq %Y A348120 Subsequence of A328014 and A348119. %Y A348120 Cf. A001694. %K A348120 nonn %O A348120 1,1 %A A348120 _Amiram Eldar_, Oct 01 2021