%I #11 Feb 24 2023 11:26:22
%S 0,0,1,1,1,1,1,1,2,3,4,5,5,5,5,6,6,6,6,7,7,8,9,9,9,10,11,12,13,13,14,
%T 15,15,15,16,16,16,16,16,16,17,17,18,18,18,19,20,21,21,21,22,22,22,22,
%U 22,23,23,24,25,26,26,26,27,27,28,29,30,30,30,30,31,31,31,31,32,33,33
%N Number of even partition numbers <= P(n), where P=A000041.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PartitionFunction.html">Partition Function</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PartitionFunctionPCongruences.html">Partition Function P Congruences</a>
%F a(n) = n + 1 - A071754(n).
%o (PARI) a(n) = sum(k=1, n, !(numbpart(k) % 2)); \\ _Michel Marcus_, Feb 24 2023
%Y Cf. A000041, A052001, A040051, A071754.
%K nonn
%O 0,9
%A _Reinhard Zumkeller_, Aug 23 2003
|