A087186 Q(p)/p where p runs through the primes and Q(k) is the k-th central quadrinomial coefficient (A005190).

2, 4, 31, 304, 40044, 500522, 86094668, 1167752848, 225001039696, 652498288154820, 9451735761626880, 29731605314969017772, 6529673496702876605072, 97300805803445759460364, 21809340225815485957990464, 74647602337610140872493303186, 260456466719887195671579173952976

Offset: 1

Author

Benoit Cloitre, Oct 19 2003

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..263 (terms 1..100 from M. F. Hasler)

Crossrefs

Cf. A005190.

Programs

Mathematica

f[n_] := Max[CoefficientList[Expand[Sum[x^k, {k, 0, 3}]^n], x]]; Table[f[p]/p, {p, Prime[Range[15]]}] (* Amiram Eldar, Apr 25 2025 *)