cp's OEIS Frontend

A094699 Number of prime partition numbers <= n-th partition number.

%I A094699 #13 May 15 2025 08:17:46
%S A094699 0,0,1,2,3,4,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
%T A094699 6,6,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
%U A094699 7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
%N A094699 Number of prime partition numbers <= n-th partition number.
%H A094699 Amiram Eldar, <a href="/A094699/b094699.txt">Table of n, a(n) for n = 0..10000</a>
%t A094699 Accumulate[Boole[PrimeQ[Table[PartitionsP[n], {n, 0, 100}]]]] (* _Amiram Eldar_, May 15 2025 *)
%o A094699 (PARI) a(n)=sum(i=1,n,ispseudoprime(numbpart(i))) \\ _Charles R Greathouse IV_, May 28 2015
%Y A094699 Cf. A000041, A000720, A046063, A049575, A094700.
%K A094699 nonn
%O A094699 0,4
%A A094699 _Reinhard Zumkeller_, May 20 2004
%E A094699 Offset corrected by _Amiram Eldar_, May 15 2025