login
A088591
A nonsense sequence.
0
1, 2, 7, 21, 159, 798, 16032, 112230, 6127559, 67403154, 10003515096, 130045696256, 52464178339578, 891891031772826, 978077279147051102, 18583468303793970956, 55396538267131436195083, 1274120380144023032486931
OFFSET
0,2
MATHEMATICA
(* Solve[x^3-x-1==0, x] *)
Phi=1.3247179572447460259609088544780973407;
Digits=18;
a=Table[If[m==0, Phi, Phi*Product[Prime[n], {n, 1, m}]], {m, 0, Digits}];
b=Table[Exp[Sum[n, {n, 0, m}]], {m, 0, Digits}];
c=Table[Floor[a[[Floor[(n+1)/2]]]*b[[Floor[n/2]]]], {n, 2, Digits+1}]
CROSSREFS
Sequence in context: A150320 A150321 A076716 * A229493 A175871 A137107
KEYWORD
nonn,uned,less
AUTHOR
Roger L. Bagula, Nov 20 2003
STATUS
approved