A088591 A nonsense sequence.

1, 2, 7, 21, 159, 798, 16032, 112230, 6127559, 67403154, 10003515096, 130045696256, 52464178339578, 891891031772826, 978077279147051102, 18583468303793970956, 55396538267131436195083, 1274120380144023032486931

Offset

0,2

Links

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

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

Adjacent sequences: A088588 A088589 A088590 * A088592 A088593 A088594

Keyword

nonn,uned,less

Author

Roger L. Bagula, Nov 20 2003

Status

approved