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 A335397 #11 Jun 07 2020 01:19:58
%S A335397 22625,28375,40472,48248,49624,58374,59750,102248,103624,107702,
%T A335397 112374,129623,136214,136375,164295,187623,190375,197910,199624,
%U A335397 211624,221750,246616,264248,275750,280231,298375,300806,312471,346086,349623,352375,356375,372248,382374
%N A335397 Starts of runs of 3 consecutive numbers that have an equal number of unitary and nonunitary divisors (A048109).
%H A335397 Zak Seidov, <a href="/A335397/b335397.txt">Table of n, a(n) for n = 1..10000</a>
%e A335397 22625 is a term since 22625, 22626 and 22627 each have an equal number of unitary and nonunitary divisors. 22625 has 4 unitary divisors (1, 125, 181 and 22625) and 4 nonunitary divisors (5, 25, 905 and 4525), 22626 has 8 unitary divisors and 8 nonunitary divisors, and 22627 has 4 unitary divisors and 4 nonunitary divisors.
%t A335397 q[n_] := DivisorSigma[0, n] == 2^(PrimeNu[n] + 1); v = q /@ Range[3]; seq = {}; Do[v = Append[Drop[v, 1], q[k]]; If[And @@ v, AppendTo[seq, k - 2]], {k, 4, 2 * 10^5}]; seq
%Y A335397 Subsequence of A048109 and A335328.
%Y A335397 Cf. A000005, A034444, A048105.
%K A335397 nonn
%O A335397 1,1
%A A335397 _Zak Seidov_ and _Amiram Eldar_, Jun 06 2020