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 A348098 #11 Sep 30 2021 18:17:25 %S A348098 44,75,98,116,135,147,152,171,175,188,207,244,296,332,351,368,375,387, %T A348098 404,423,424,507,548,567,603,604,639,656,711,724,775,832,844,847,872, %U A348098 891,908,927,931,963,1016,1028,1052,1075,1083,1107,1183,1215,1250,1251,1268 %N A348098 Number k such that k and k+1 both have an equal number of unitary and nonunitary prime divisors (A348097). %H A348098 Amiram Eldar, <a href="/A348098/b348098.txt">Table of n, a(n) for n = 1..10000</a> %e A348098 44 is a term since 44 = 2^2 * 11 and 44 + 1 = 45 = 3^2 * 5 both have one unitary prime divisor and one nonunitary prime divisor. %t A348098 q[n_] := n == 1 || Count[(e = FactorInteger[n][[;; , 2]]), 1] == Length[e]/2; Select[Range[10^3], q[#] && q[# + 1] &] %Y A348098 Subsequence of A348097. %Y A348098 Cf. A335328. %K A348098 nonn %O A348098 1,1 %A A348098 _Amiram Eldar_, Sep 30 2021