OFFSET
1,2
COMMENTS
Equivalently, a(n) = number of sums S of positive integers satisfying S <= n.
Equivalently, first differences give A000041. - Jacques ALARDET, Aug 04 2008, Aug 15 2008
For the partial sums of the partitions numbers of nonnegative integers A001477 see A000070. - Omar E. Pol, Nov 12 2011
Also number of parts in all regions of n that contain 1 as a part (Cf. A206437). - Omar E. Pol, Mar 11 2012
Also the number of graph minors of the path graph P_n (not counting the null graph). - Eric W. Weisstein, Apr 29 2022
LINKS
Riccardo Aragona, Roberto Civino, and Norberto Gavioli, An ultimately periodic chain in the integral Lie ring of partitions, J. Algebr. Comb. (2024). See p. 11.
Thomas M. A. Fink, Emmanuel Barillot, and Sebastian E. Ahnert, Dynamics of network motifs, 2006.
Ricardo Gómez Aíza, Trees with flowers: A catalog of integer partition and integer composition trees with their asymptotic analysis, arXiv:2402.16111 [math.CO], 2024. See p. 23.
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 800
FORMULA
a(n) = A000070(n) - 1, n >= 1.
a(n) ~ exp(Pi*sqrt(2*n/3)) / (2^(3/2)*Pi*sqrt(n)) * (1 + 11*Pi/(24*sqrt(6*n))). - Vaclav Kotesovec, Oct 25 2016
G.f.: -1/(1 - x) + (1/(1 - x))*Product_{k>=1} 1/(1 - x^k). - Ilya Gutkovskiy, Dec 25 2016
MAPLE
a:= n-> add(combinat[numbpart](k), k=1..n): seq(a(n), n=1..44); # Zerinvary Lajos, Jun 01 2008
MATHEMATICA
Table[ Sum[ PartitionsP[k], {k, 1, n}], {n, 1, 45}]
(* or: *)
PartitionsP[Range[45]] // Accumulate (* Jean-François Alcover, Jun 19 2019 *)
CoefficientList[Series[(QPochhammer[x] - 1)/(x (x - 1) QPochhammer[x]), {x, 0, 20}], x] (* Eric W. Weisstein, Apr 29 2022 *)
PROG
(PARI) a(n) = sum(k=1, n, numbpart(k)); \\ Michel Marcus, Jul 19 2023
(Python)
from sympy import partition
def A026905(n): return sum(partition(k) for k in range(1, n+1)) # Chai Wah Wu, Nov 23 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Jun 20 2015
Name clarified by Omar E. Pol, Apr 30 2022
STATUS
approved