|
%I #16 Feb 18 2024 01:34:00
%S 0,1,2,2,3,3,3,4,4,4,4,4,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,7,7,7,7,
%T 7,7,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,9,
%U 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,10
%N k appears partition(k) times.
%D M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, 1972, p. 831, column labeled "n".
%H Robert Price, <a href="/A036042/b036042.txt">Table of n, a(n) for n = 0..9295</a> (0 <= k <=25).
%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
%F Sum_{n>=1} (-1)^(n+1)/a(n) = Sum_{n>=2} (-1)^n/A052002(n) = 0.78686... . - _Amiram Eldar_, Feb 18 2024
%t Table[ConstantArray[n, PartitionsP[n]], {n, 0, 9}] // Flatten (* _Robert Price_, Jun 12 2020 *)
%Y Cf. A000041, A052002.
%K nonn
%O 0,3
%A _N. J. A. Sloane_.
|
