|
Search: id:A088589
|
|
|
| A088589 |
|
An improved natural sequence based on two base scales Pi and e and the prime sequence. |
|
+0
1
|
|
| 1, 3, 8, 17, 126, 378, 7604, 38022, 2075945, 14531618, 2156683401, 23723517421, 9570750010878, 124419750141419, 136442823568464604, 2319528000663898268, 6914415519745978746410, 131373894875173596181802
(list; graph; listen)
|
|
|
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 this_sequence A063597 A004210 A102344
Adjacent sequences: A088586 A088587 A088588 this_sequence A088590 A088591 A088592
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 20 2003
|
|
|
Search completed in 0.002 seconds
|
