OFFSET
0,3
COMMENTS
Weigh transform of the pentagonal numbers (A000326).
This sequence is obtained from the generalized Euler transform in A266964 by taking f(n) = -n*(3*n-1)/2, g(n) = -1. - Seiichi Manyama, Nov 14 2017
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
N. J. A. Sloane, Transforms
Eric Weisstein's World of Mathematics, Pentagonal Number
FORMULA
G.f.: Product_{k>=1} (1 + x^k)^A000326(k).
a(n) ~ exp(-225*Zeta(3)^3 / (98*Pi^8) - 9 * 5^(5/4) * Zeta(3)^2 / (4 * 7^(5/4) * Pi^5) * n^(1/4) - (3*sqrt(5/7) * Zeta(3) / (2*Pi^2)) * sqrt(n) + (2 * (7/5)^(1/4) * Pi / 3) * n^(3/4)) * 7^(1/8) / (2^(47/24) * 5^(1/8) * n^(5/8)). - Vaclav Kotesovec, Nov 10 2017
a(0) = 1 and a(n) = (1/(2*n)) * Sum_{k=1..n} b(k)*a(n-k) where b(n) = Sum_{d|n} d^2*(3*d-1)*(-1)^(1+n/d). - Seiichi Manyama, Nov 14 2017
MATHEMATICA
nmax = 33; CoefficientList[Series[Product[(1 + x^k)^(k (3 k - 1)/2), {k, 1, nmax}], {x, 0, nmax}], x]
a[n_] := a[n] = If[n == 0, 1, Sum[Sum[(-1)^(k/d + 1) d^2 (3 d - 1)/2, {d, Divisors[k]}] a[n - k], {k, 1, n}]/n]; Table[a[n], {n, 0, 33}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Nov 09 2017
STATUS
approved