login
A088588
Natural two base element sequence based on Pi and e and a prime sequence.
0
1, 8, 17, 126, 378, 7604, 38022, 2075945, 14531618, 2156683401, 23723517421, 9570750010878, 124419750141419, 136442823568464604, 2319528000663898268, 6914415519745978746410, 131373894875173596181802
OFFSET
0,2
COMMENTS
A one liner in Mathematica.
FORMULA
a(n) = F_Pi[n]*F_E[n]=If[n==0, 1, Floor[Pi*Exp[Sum[j, {j, 0, Floor[(n+1)/2]}]]*Product[Prime[i], {i, 1, Floor[n/2]}]]]
MATHEMATICA
a=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
Sequence in context: A357678 A097405 A192282 * A041537 A153315 A041126
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Nov 20 2003
STATUS
approved