A258113 Decimal expansion of a constant related to A007660.

1, 1, 1, 3, 0, 5, 7, 9, 7, 5, 9, 0, 2, 9, 3, 1, 9, 3, 2, 8, 5, 3, 5, 9, 7, 7, 0, 7, 1, 6, 7, 5, 8, 4, 9, 1, 9, 0, 6, 6, 0, 0, 1, 8, 1, 5, 1, 0, 1, 8, 6, 5, 2, 7, 2, 0, 1, 4, 3, 7, 9, 7, 2, 4, 2, 0, 6, 9, 2, 7, 7, 1, 7, 2, 9, 7, 9, 8, 8, 2, 5, 9, 3, 8, 1, 6, 0, 9, 3, 6, 1, 4, 5, 4, 4, 5, 9, 4, 3, 5, 2, 2, 3, 4, 5

Offset

1,4

Links

Table of n, a(n) for n=1..105.

Formula

Equals limit n->infinity (A007660(n))^((2/(1+sqrt(5)))^n).

Example

1.1130579759029319328535977071675849190660018151018652720143797242069...

Mathematica

A007660 = RecurrenceTable[{a[1]==0, a[2]==N[1, 200], a[n]==a[n-1]*a[n-2]+1}, a[n], {n, 1, 30}]; Do[Print[N[Exp[c2]/.Solve[Table[Log[A007660[[n]]]==c1*((1-Sqrt[5])/2)^n + c2*((1+Sqrt[5])/2)^n, {n, k, k+1}]], 120][[1]]], {k, Length[A007660]-2, Length[A007660]-1}];

Crossrefs

Cf. A007660, A076949, A250309, A258112.

Sequence in context: A019915 A052123 A285471 * A174190 A061035 A225233

Adjacent sequences: A258110 A258111 A258112 * A258114 A258115 A258116

Keyword

nonn,cons

Author

Vaclav Kotesovec, May 20 2015

Status

approved