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 A358818 #10 Dec 15 2022 05:07:28
%S A358818 1,44,135,80,8991,29888,123200,2316032,1043199,24151040,217713663,
%T A358818 689278976,11573190656,76876660736,311969153024,2035980763136,
%U A358818 2741258240000,215189482110975
%N A358818 a(n) is the least number k such that A046660(k) = A046660(k+1) = n.
%C A358818 a(14) <= 314944159743.
%C A358818 a(18) > 10^14.5; a(19) = 275892612890624; a(20) > 10^14.5. - _Martin Ehrenstein_, Dec 11 2022
%t A358818 e[n_] := PrimeOmega[n] - PrimeNu[n]; a[n_] := Module[{k = 1}, While[e[k] != n || e[k + 1] != n, k++]; k]; Array[a, 10, 0]
%o A358818 (PARI) e(n) = {my(f = factor(n)); bigomega(f) - omega(f)};
%o A358818 a(n) = {my(k=1); while(e(k) != n || e(k+1) !=n , k++); k};
%Y A358818 Cf. A046660.
%Y A358818 Subsequence of A358817.
%Y A358818 Similar sequences: A052215, A059737, A093548, A115186.
%K A358818 nonn,more
%O A358818 0,2
%A A358818 _Amiram Eldar_, Dec 02 2022
%E A358818 a(14)-a(16) from _Martin Ehrenstein_, Dec 04 2022
%E A358818 a(17) from _Martin Ehrenstein_, Dec 09 2022