login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A174631 a(n) = Floor[(alpha^n-beta^n)(alpha-beta)], with alpha = (1 + Sqrt(a0))/2; beta = (1 - Sqrt(a0))/2; a0 = real minimal Pisot root of x^3-x-1=0(1.324717957244746) 1
0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 10, 11, 11, 12, 13, 14, 15, 17, 18, 19, 21, 22, 24, 26, 28, 30, 33, 35, 38, 41, 44, 47, 51, 54, 59, 63, 68, 73, 79, 85, 91, 98, 105, 113, 122, 131, 141, 152, 163, 176, 189, 203, 219, 235, 253, 272, 293, 315, 339, 364, 392, 421, 453, 487, 524, 564, 607, 652, 702, 755, 812, 873, 939, 1010, 1086, 1168, 1256 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,13

COMMENTS

Limiting ratio is:1.0754819626288792.

The integer 5 in the Fibonacci Binet formula is replaced by the minimal Pisot real root as a beta integer to design a very low ratio sequence.

LINKS

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

FORMULA

a0=1.324717957244746;

alpha=1.0754819626288792;

beta=-0.07548196262887907;

a(n)=Floor[(alpha^n-beta^n)/(alpha-beta)]

MATHEMATICA

a0 = x /. NSolve[x^3 - x - 1 == 0, x][[3]]

a = (1 + Sqrt[a0])/2; b = (1 - Sqrt[a0])/2;

f[n_] := Floor[FullSimplify[(a^n - b^n)/(a - b)]]

Table[f[n], {n, 0, 100}]

CROSSREFS

Cf. A000931,A174576

Sequence in context: A090618 A186444 A072748 * A278949 A030603 A092670

Adjacent sequences:  A174628 A174629 A174630 * A174632 A174633 A174634

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Nov 29 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 5 21:00 EDT 2020. Contains 335473 sequences. (Running on oeis4.)