A063595 a(n) = floor(sqrt(Fibonacci(n+1)) - sqrt(Fibonacci(n))).

1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 2, 3, 4, 5, 6, 8, 10, 13, 17, 22, 28, 36, 46, 58, 74, 94, 120, 153, 195, 248, 315, 401, 510, 649, 826, 1051, 1336, 1700, 2163, 2751, 3500, 4452, 5663, 7204, 9163, 11656, 14827, 18860, 23991, 30517, 38818, 49378, 62810, 79895

Offset

0,11

Links

Harry J. Smith, Table of n, a(n) for n = 0..500

Mathematica

Floor[Last[#]-First[#]]&/@Partition[Sqrt[Fibonacci[Range[0, 60]]], 2, 1] (* Harvey P. Dale, Feb 19 2013 *)

Prog

(PARI) ? j=[]; for(n=0, 100, j=concat(j, floor(sqrt(fibonacci(n+1))-(sqrt(fibonacci (n)))))); j
(PARI) { default(realprecision, 50); g=0; f=1; for (n=0, 500, write("b063595.txt", n, " ", floor(sqrt(f) - sqrt(g))); h=g; g=f; f+=h ) } \\ Harry J. Smith, Aug 26 2009

Crossrefs

Sequence in context: A127217 A240735 A057042 * A316080 A130082 A241377

Adjacent sequences: A063592 A063593 A063594 * A063596 A063597 A063598

Keyword

nonn

Author

Jason Earls, Aug 10 2001

Status

approved