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
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Nov 20 2003
STATUS
approved