A244035 a(n) = Sum_{d|n} Sum{t|d} moebius(d/t)*binomial(3*t,t)/(3*d^2).

1, 2, 4, 12, 41, 176, 792, 3840, 19291, 100182, 533160, 2897544, 16020564, 89898944, 510914744, 2936004072, 17036988567, 99718480238, 588166176660, 3493203829992, 20876368407633, 125470501764720, 757994313694512, 4600845871441080, 28047225141946116, 171662437354159416

Offset

1,2

Links

Table of n, a(n) for n=1..26.

M. Isachenkov, I. Kirsch, V. Schomerus, Chiral Primaries in Strange Metals, arXiv preprint arXiv:1403.6857 [hep-th], 2014. See (3.5).

Maple

with(numtheory);
f:=proc(N) local Na, n, ans;
ans:=0;
for Na in divisors(N) do
   for n in divisors(Na) do
    ans := ans + mobius(Na/n)*binomial(3*n, n)/(3*Na^2); od: od:
ans;
end;
[seq(f(n), n=1..30)];

Mathematica

a[n_] := Sum[MoebiusMu[d/t]*Binomial[3*t, t]/(3*d^2), {d, Divisors[n]}, {t, Divisors[d]}];
Array[a, 26] (* Jean-François Alcover, Dec 05 2017 *)

Crossrefs

Sequence in context: A222919 A264760 A090959 * A340025 A126942 A126947

Adjacent sequences: A244032 A244033 A244034 * A244036 A244037 A244038

Keyword

nonn

Author

N. J. A. Sloane, Jun 28 2014

Status

approved