|
%I #23 Sep 08 2022 08:45:03
%S 0,1,1,1,1,2,2,3,4,5,7,9,12,15,19,24,31,39,50,64,82,104,133,169,215,
%T 273,348,443,563,717,912,1160,1475,1877,2388,3037,3863,4915,6252,7952,
%U 10116,12867,16368,20820,26484,33688,42852,54508,69336,88197,112188
%N Integer part of square root of n-th Fibonacci number.
%H Harry J. Smith, <a href="/A061287/b061287.txt">Table of n, a(n) for n = 0..500</a>
%e a(10) = 7 because the 10th Fibonacci number is 55 and floor(sqrt(55)) = floor(7.4161) = 7.
%t Array[Floor[Sqrt[Fibonacci[ # ]]]&,5!,0] (* _Vladimir Joseph Stephan Orlovsky_, Nov 10 2009 *)
%o (PARI) { g=0; f=1; for (n=0, 500, write("b061287.txt", n, " ", sqrtint(g)); s=f; f+=g; g=s ) } \\ _Harry J. Smith_, Jul 20 2009
%o (Sage) [floor(sqrt(fibonacci(n))) for n in range(0,51)] # _Zerinvary Lajos_, Dec 01 2009
%o (Maxima) makelist(floor(sqrt(fib(n))),n,0,24); /* _Emanuele Munarini_, Jul 07 2011 */
%o (Magma) [Floor(Sqrt(Fibonacci(n))): n in [0..50]]; // _Vincenzo Librandi_, Sep 29 2017
%K nonn,easy
%O 0,6
%A _Amarnath Murthy_, Apr 25 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), May 07 2001
|
