A087194 (A(p)-1)/(2*p^2) where p runs through the odd primes different from 7 and A(k) is the k-th central heptanomial coefficient (A025012).

2, 29, 484398, 15667221, 19291710979, 716525463939, 1068605567805152, 70525663815429108660, 2926081151105727289330, 221376944251520543756333062, 411385907065654082376504375598, 17898287435226907360810789564846, 34416385933810421469168969530445713

Offset: 1

Author

Benoit Cloitre, Oct 19 2003

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..194

Crossrefs

Cf. A025012.

Programs

Mathematica

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

Extensions

Name corrected by Amiram Eldar, Apr 21 2025