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