A088590 - OEIS

%I #12 Dec 18 2022 07:53:34

%S 1,3,8,26,194,974,19582,137079,7484309,82327407,12218470614,

%T 158840117990,64080677159258,1089371511707397,1194640921585668389,

%U 22698177510127699399,67662313540106094700977,1556233211422440178122481

%N A nonsense sequence.

%t Phi=(Sqrt[5]+1)/2;

%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