A088590 A nonsense sequence.

1, 3, 8, 26, 194, 974, 19582, 137079, 7484309, 82327407, 12218470614, 158840117990, 64080677159258, 1089371511707397, 1194640921585668389, 22698177510127699399, 67662313540106094700977, 1556233211422440178122481

Offset

0,2

Links

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

Mathematica

Phi=(Sqrt[5]+1)/2;
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: A054097 A238243 A298624 * A023637 A128894 A118165

Adjacent sequences: A088587 A088588 A088589 * A088591 A088592 A088593

Keyword

nonn,uned,less

Author

Roger L. Bagula, Nov 20 2003

Status

approved