A088588 - OEIS

%I #6 Mar 30 2012 17:34:13

%S 1,8,17,126,378,7604,38022,2075945,14531618,2156683401,23723517421,

%T 9570750010878,124419750141419,136442823568464604,2319528000663898268,

%U 6914415519745978746410,131373894875173596181802

%N Natural two base element sequence based on Pi and e and a prime sequence.

%C A one liner in Mathematica.

%F 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]}]]]

%t 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}]

%K nonn,uned

%O 0,2

%A _Roger L. Bagula_, Nov 20 2003