cp's OEIS Frontend

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.

A174576 a(n) = Floor[(alpha^n-beta^n)(alpha-beta)], with alpha = (1 + Sqrt(a0))/2; beta = (1 - Sqrt(a0))/2; a0=(1 + Sqrt(5))/2.

This page as a plain text file.
%I A174576 #9 Mar 12 2014 16:37:15
%S A174576 0,1,1,1,1,1,1,1,2,2,2,3,3,4,4,5,6,6,7,8,10,11,12,14,16,19,21,24,27,
%T A174576 31,36,40,46,52,60,68,77,88,100,113,129,146,166,189,214,244,277,315,
%U A174576 357,406,461
%N A174576 a(n) = Floor[(alpha^n-beta^n)(alpha-beta)], with alpha = (1 + Sqrt(a0))/2; beta = (1 - Sqrt(a0))/2; a0=(1 + Sqrt(5))/2.
%C A174576 A sequence designed to have limiting ratio:1.1360098247570344821
%t A174576 Clear[a, b, a0, f]
%t A174576 a0 = (1 + Sqrt[5])/2;
%t A174576 a = (1 + Sqrt[a0])/2; b = (1 - Sqrt[a0])/2;
%t A174576 f[n_] := Floor[FullSimplify[(a^n - b^n)/(a - b)]]
%t A174576 Table[f[n], {n, 0, 50}]
%Y A174576 Cf. A174575, A174427.
%K A174576 nonn
%O A174576 0,9
%A A174576 _Roger L. Bagula_, Nov 29 2010