A088588 a(0)=1, a(n) = floor(Pi * exp(f(n)*(f(n)+1)/2) * prime(n/2)#) where f(n)=floor((n+1)/2) and p(n)# is the n-th primorial.

1, 8, 17, 126, 378, 7604, 38022, 2075945, 14531618, 2156683401, 23723517421, 9570750010878, 124419750141419, 136442823568464604, 2319528000663898268, 6914415519745978746410, 131373894875173596181802, 1064533696065997276697300848, 24484275009517937364037919525

Offset

0,2

Comments

Essentially a duplicate of A088589. - Sean A. Irvine, Apr 28 2026

Links

Table of n, a(n) for n=0..18.

Mathematica

Table[If[n==0, 1, Floor[Pi*Exp[Sum[j, {j, 0, Floor[(n+1)/2]}]]*Product[Prime[i], {i, 1, Floor[n/2]}]]], {n, 0, 20}]

Crossrefs

Cf. A088589, A002110.

Sequence in context: A357678 A097405 A192282 * A041537 A153315 A041126

Adjacent sequences: A088585 A088586 A088587 * A088589 A088590 A088591

Keyword

nonn,less,dumb

Author

Roger L. Bagula, Nov 20 2003

Extensions

Edited by Sean A. Irvine, Apr 28 2026

Status

approved