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 A342028 #10 Feb 26 2021 06:30:41 %S A342028 1,2,3,4,7,8,11,12,16,17,18,19,23,24,27,28,31,40,43,44,47,48,49,52,53, %T A342028 63,67,71,72,75,79,80,88,96,97,98,103,107,108,112,116,124,127,135,136, %U A342028 147,148,151,152,162,163,171,172,175,188,191,192,199,207,211,223 %N A342028 Numbers k such that k and k+1 both have mutually distinct exponents in their prime factorization (A130091). %H A342028 Amiram Eldar, <a href="/A342028/b342028.txt">Table of n, a(n) for n = 1..10000</a> %H A342028 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 A342028 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 A342028 2 is a term since both 2 and 3 have a single exponent (1) in their prime factorization. %e A342028 5 is not a term since 6 = 2*3 has two equal exponents (1) in its prime factorization. %t A342028 q[n_] := Length[(e = FactorInteger[n][[;; , 2]])] == Length[Union[e]]; Select[Range[250], q[#] && q[# + 1] &] %Y A342028 Subsequence of A130091. %Y A342028 Subsequences: A342029, A342030, A342031. %K A342028 nonn %O A342028 1,2 %A A342028 _Amiram Eldar_, Feb 25 2021