|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
A one liner in Mathematica.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|