A088591 - OEIS

%I #14 Dec 18 2022 09:00:51

%S 1,2,7,21,159,798,16032,112230,6127559,67403154,10003515096,

%T 130045696256,52464178339578,891891031772826,978077279147051102,

%U 18583468303793970956,55396538267131436195083,1274120380144023032486931

%N A nonsense sequence.

%t (* Solve[x^3-x-1==0, x] *)

%t Phi=1.3247179572447460259609088544780973407;

%t Digits=18;

%t a=Table[If[m==0, Phi, Phi*Product[Prime[n], {n, 1, m}]], {m, 0, Digits}];

%t b=Table[Exp[Sum[n, {n, 0, m}]], {m, 0, Digits}];

%t c=Table[Floor[a[[Floor[(n+1)/2]]]*b[[Floor[n/2]]]], {n, 2, Digits+1}]

%K nonn,uned,less

%O 0,2

%A _Roger L. Bagula_, Nov 20 2003