|
|
A334949
|
|
a(n) is the total number of parts in all partitions of n into consecutive parts that differ by 6.
|
|
10
|
|
|
1, 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, 3, 1, 3, 1, 3, 1, 3, 1, 3, 4, 3, 1, 6, 1, 3, 4, 3, 1, 6, 1, 3, 4, 3, 1, 6, 1, 3, 4, 7, 1, 6, 1, 7, 4, 3, 1, 10, 1, 3, 4, 7, 1, 6, 1, 7, 4, 3, 1, 10, 1, 3, 4, 7, 6, 6, 1, 7, 4, 8, 1, 10, 1, 3, 9, 7, 1, 6, 1, 12, 4, 3, 1, 10, 6, 3, 4, 7, 1, 11, 1, 7, 4
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,8
|
|
COMMENTS
|
The one-part partition n = n is included in the count.
For the relation to the octagonal numbers see also A334947.
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum_{n>=1} n*x^(n*(3*n-2))/(1-x^n). (For proof, see A330889. - Omar E. Pol, Nov 22 2020)
|
|
EXAMPLE
|
For n = 24 there are three partitions of 24 into consecutive parts that differ by 6, including 24 as a valid partition. They are [24], [15, 9] and [14, 8, 2]. There are 1, 2 and 3 parts respectively, hence the total number of parts is 1 + 2 + 3 = 6, so a(24) = 6.
|
|
MATHEMATICA
|
nmax = 100;
CoefficientList[Sum[n x^(n(3n-2)-1)/(1-x^n), {n, 1, nmax}]+O[x]^nmax, x] (* Jean-François Alcover, Nov 30 2020 *)
|
|
PROG
|
(PARI) my(N=66, x='x+O('x^N)); Vec(sum(k=1, N, k*x^(k*(3*k-2))/(1-x^k))) \\ Seiichi Manyama, Dec 04 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|