A346580 a(n) = (1/(6*n)) * Sum_{d|n} mu(n/d) * binomial(6*d,d).

1, 5, 45, 440, 4750, 54081, 642341, 7861216, 98480286, 1256564750, 16273981757, 213378921432, 2826867619108, 37782552518473, 508840821825750, 6898459208449920, 94070535317459017, 1289430373107917718, 17755914760643605781, 245518560759177014000, 3407586451859019939012

Offset: 1

Author

Ilya Gutkovskiy, Jul 24 2021

Keywords

• nonn

Comments

Inverse Euler transform of A002295.

Moebius transform of A261499.

Crossrefs

Cf. A002295, A004355, A008683, A022553, A261499, A346577, A346578, A346579, A346581, A346582.

Programs

Mathematica

Table[(1/(6 n)) Sum[MoebiusMu[n/d] Binomial[6 d, d], {d, Divisors[n]}], {n, 21}]

PARI

a(n) = sumdiv(n, d, moebius(n/d)*binomial(6*d,d))/(6*n); \\ Michel Marcus, Jul 24 2021