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 A342029 #10 Feb 26 2021 06:30:48
%S A342029 1,2,3,7,11,16,17,18,23,27,43,47,48,52,71,79,96,97,107,135,147,151,
%T A342029 162,171,191,241,242,243,331,351,359,367,387,423,431,486,507,539,547,
%U A342029 567,575,576,599,603,639,907,927,1051,1107,1123,1151,1215,1249,1250,1323
%N A342029 Starts of runs of 3 consecutive numbers that have mutually distinct exponents in their prime factorization (A130091).
%H A342029 Amiram Eldar, <a href="/A342029/b342029.txt">Table of n, a(n) for n = 1..10000</a>
%H A342029 Kevser Aktaş and M. Ram Murty, <a href="https://doi.org/10.1007/s12044-016-0326-z">On the number of special numbers</a>, Proceedings - Mathematical Sciences, Vol. 127, No. 3 (2017), pp. 423-430; <a href="https://www.ias.ac.in/article/fulltext/pmsc/127/03/0423-0430">alternative link</a>.
%H A342029 Bernardo Recamán Santos, <a href="http://mathoverflow.net/questions/201489">Consecutive numbers with mutually distinct exponents in their canonical prime factorization</a>, MathOverflow, Mar 30 2015.
%e A342029 2 is a term since 2, 3 and 4 = 2^2 all have a single exponent in their prime factorization.
%e A342029 4 is not a term since in the run {4, 5, 6} the third member 6 = 2*3 has two equal exponents (1) in its prime factorization.
%t A342029 q[n_] := Length[(e = FactorInteger[n][[;; , 2]])] == Length[Union[e]]; v = q /@ Range[3]; seq = {}; Do[If[And @@ v, AppendTo[seq, k - 3]]; v = Join[Rest[v], {q[k]}], {k, 4, 1500}]; seq
%Y A342029 Subsequence of A130091 and A342028.
%Y A342029 Subsequences: A342030, A342031.
%K A342029 nonn
%O A342029 1,2
%A A342029 _Amiram Eldar_, Feb 25 2021