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 A264959 #16 Feb 19 2022 01:34:08 %S A264959 1,9,27,80,216,448,1296,2816,6400,13312,30720,62208,139264,311296, %T A264959 688128,1474560,2985984,6029312,12845056,30408704,65011712,131072000, %U A264959 264241152,553648128,1132462080,2293235712,4697620480,9932111872,20132659200,41875931136,88046829568 %N A264959 a(n) = A257851(n,n). %t A264959 a[n_] := a[n] = Reap[For[m = 1; k = 1, k <= n+1, If[PrimeOmega[m] - PrimeNu[m] == n, Sow[m]; k++]; m++]][[2, 1]] // Last; %t A264959 Table[Print[n, " ", a[n]]; a[n], {n, 0, 20}] (* _Jean-François Alcover_, Oct 03 2021 *) %o A264959 (Haskell) %o A264959 a264959 n = a257851 n n %o A264959 (PARI) a(n) = my(nb=0, k=1); until (nb == n+1, my(f=factor(k)); if (bigomega(f) - omega(f) == n, nb++); k++;); k-1; \\ _Michel Marcus_, Feb 05 2022 %Y A264959 Cf. A046660, A257851, A261256. %K A264959 nonn %O A264959 0,2 %A A264959 _Reinhard Zumkeller_, Nov 29 2015 %E A264959 a(21)-a(25) from _Michel Marcus_, Feb 05 2022 %E A264959 More terms from _Jinyuan Wang_, Feb 18 2022