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 A113506 #8 May 27 2018 10:43:27 %S A113506 1,32,7,12,17,46,3042,319,835,2188,5730,375131,39282,102845,269253, %T A113506 704915,46137317,4831563,12649196,33116027,86698886,5674515856, %U A113506 594243013,1555748409,4073002214,10663258234,697919312217,73087059232 %N A113506 Maximum element in the continued fraction expansion of F(n+1)^5/F(n)^5 where F=A000045. %F A113506 5*a(5n)=F(10n+1)-(-1)^n-5; 5*a(5n+1)=F(10n+3)-2*(-1)^n-5; a(5n+2)=5*F(10n+5)+7*(-1)^n-1; 5a(5n+3)=F(10n+7)-3*(-1)^n-5; 5a(5n+4)=F(10n+9)+(-1)^n-5. %F A113506 Empirical g.f.: x*(6*x^19 -5*x^17 +x^16 -x^15 -732*x^14 -x^13 +593*x^12 -107*x^11 +118*x^10 -743*x^9 +94*x^8 -327*x^7 +786*x^6 +93*x^5 -5*x^4 -5*x^3 +25*x^2 -31*x -1) / ((x -1) * (x +1) * (x^2 -3*x +1) * (x^4 -x^3 +x^2 -x +1) * (x^4 -x^3 +6*x^2 +4*x +1) * (x^4 +4*x^3 +6*x^2 -x +1)). - _Colin Barker_, Jun 17 2013 %t A113506 Max[ContinuedFraction[#[[2]]/#[[1]]]]&/@Partition[Fibonacci[ Range[ 30]]^5,2,1] (* _Harvey P. Dale_, May 27 2018 *) %o A113506 (PARI) a(n)=vecmax(contfrac(fibonacci(n+1)^5/fibonacci(n)^5)) %Y A113506 Cf. A113500. %K A113506 nonn %O A113506 1,2 %A A113506 _Benoit Cloitre_, Jan 11 2006