login
A063595
a(n) = floor(sqrt(Fibonacci(n+1)) - sqrt(Fibonacci(n))).
1
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
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
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 10 2001
STATUS
approved