cp's OEIS Frontend

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.

A264959 a(n) = A257851(n,n).

This page as a plain text file.
%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