cp's OEIS Frontend

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.

A348120 Starts of runs of 3 consecutive numbers whose powerful part is larger than their powerfree part (A328014).

This page as a plain text file.
%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