|
| |
|
|
A088589
|
|
An improved natural sequence based on two base scales Pi and e and the prime sequence.
|
|
0
| |
|
|
1, 3, 8, 17, 126, 378, 7604, 38022, 2075945, 14531618, 2156683401, 23723517421, 9570750010878, 124419750141419, 136442823568464604, 2319528000663898268, 6914415519745978746410, 131373894875173596181802
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
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: A046994 A058811 A101822 * A063597 A171701 A004210
Adjacent sequences: A088586 A088587 A088588 * A088590 A088591 A088592
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 20 2003
|
| |
|
|
