A088589 An improved natural sequence based on two base scales Pi and e and the prime sequence.

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

Offset

0,2

Links

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

Formula

a(n) = f_Pi[n]*f_E[n]

Mathematica

Phi=Pi Digits=40 (* Pi based sequence*) a=Table[If[m==0, Phi, Phi*Product[Prime[n], {n, 1, m}]], {m, 0, Digits}] (* one inserted to give one as first element*) a0=Insert[a, 1, 1] (* e based sequence*) b=Table[Exp[Sum[n, {n, 0, m}]], {m, 0, Digits}] c=Table[Floor[a0[[Floor[(n+1)/2]]]*b[[Floor[n/2]]]], {n, 2, Digits+1}]

Crossrefs

Sequence in context: A058811 A101822 A354538 * A319764 A063597 A328054

Adjacent sequences: A088586 A088587 A088588 * A088590 A088591 A088592

Keyword

nonn,uned

Author

Roger L. Bagula, Nov 20 2003

Status

approved