This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A258112 #7 May 20 2015 17:39:05 %S A258112 1,7,9,7,8,7,8,4,9,0,0,0,9,1,6,0,4,8,1,3,5,5,9,5,0,8,8,3,7,0,3,1,3,5, %T A258112 2,1,6,1,7,9,3,6,6,5,2,6,5,0,1,9,5,2,5,3,6,8,5,5,2,3,6,2,5,4,2,7,4,5, %U A258112 5,8,4,1,3,2,4,6,3,6,0,7,4,1,7,3,9,2,7,8,8,0,5,6,9,3,2,4,0,9,5,6,6,8,5,9,9 %N A258112 Decimal expansion of a constant related to A001056. %F A258112 Equals limit n->infinity (A001056(n))^((2/(1+sqrt(5)))^n). %e A258112 1.7978784900091604813559508837031352161793665265019525368552362542745... %t A258112 A001056 = RecurrenceTable[{a[0]==1, a[1]==N[3, 200], a[n] == a[n-1]*a[n-2]+1}, a[n], {n, 1, 30}]; Do[Print[N[Exp[c2]/.Solve[Table[Log[A001056[[n]]] == c1*((1-Sqrt[5])/2)^n + c2*((1+Sqrt[5])/2)^n, {n, k, k+1}]], 120][[1]]], {k, Length[A001056]-2, Length[A001056]-1}]; %Y A258112 Cf. A001056, A076949, A258113. %K A258112 nonn,cons %O A258112 1,2 %A A258112 _Vaclav Kotesovec_, May 20 2015