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 A348122 #10 Oct 02 2021 17:45:59 %S A348122 8,288,360,675,1224,1331,1368,2196,2400,2600,2808,3024,5328,6075,6859, %T A348122 9408,9800,10647,11448,12167,16128,17199,19844,20448,21024,23275, %U A348122 25920,26568,26900,28899,29791,33524,38024,38808,39600,40400,41624,42875,45324,46224,46475 %N A348122 Numbers k such that k and k+1 both have more nonunitary than unitary prime divisors (A348121). %H A348122 Amiram Eldar, <a href="/A348122/b348122.txt">Table of n, a(n) for n = 1..10000</a> %e A348122 8 is a term since 8 = 2^3 has one nonunitary prime divisor, 2, and no unitary prime divisors, and 8 + 1 = 9 = 3^2 has one nonunitary prime divisor, 3, and no unitary prime divisors. %t A348122 q[n_] := 2*Count[(e = FactorInteger[n][[;; , 2]]), 1] < Length[e]; Select[Range[5*10^5], q[#] && q[# + 1] &] %Y A348122 Subsequence of A348121. %Y A348122 A060355 is a subsequence. %Y A348122 Similar sequence: A348119. %K A348122 nonn %O A348122 1,1 %A A348122 _Amiram Eldar_, Oct 01 2021