cp's OEIS Frontend

A099401 Square root of a(n) contains the n-th Fibonacci number as a string of digits to the immediate right of the decimal point (excluding leading zeros).

%I A099401 #11 Jul 05 2015 09:50:55
%S A099401 10,10,5,11,21,8,124,52,54,43,24,970,297,457,467,1520,2516,7269,12414,
%T A099401 3804,11048,25020,135635,56389,710228,44151,21082,762684,696414,
%U A099401 1085414,6472621,2979828,15220551,72130,9934617,79533387
%N A099401 Square root of a(n) contains the n-th Fibonacci number as a string of digits to the immediate right of the decimal point (excluding leading zeros).
%e A099401 a(1)= 10 because sqrt( 10)= 3.(1)622...
%e A099401 a(2)= 10 because sqrt( 10)= 3.(1)622...
%e A099401 a(3)= 5 because sqrt( 5)= 2.(2)360...
%e A099401 a(4)= 11 because sqrt( 11)= 3.(3)166...
%e A099401 a(5)= 21 because sqrt( 21)= 4.(5)825...
%e A099401 a(6)= 8 because sqrt( 8)= 2.(8)284...
%e A099401 a(7)= 124 because sqrt(124)=11.(13)55...
%e A099401 etc.
%t A099401 Do[x = IntegerDigits[Fibonacci[n]]; i = 1; l = {}; While[l != x, d = RealDigits[N[Sqrt[i], 100]]; l = Take[Drop[First[d], Last[d]], Length[x]]; i++ ]; Print[i-1], {n, 1, 36}] (* _Ryan Propper_, Aug 11 2005 *)
%Y A099401 Cf. A074841, A074762.
%K A099401 nonn,base
%O A099401 1,1
%A A099401 _Gil Broussard_, Nov 17 2004
%E A099401 Corrected and extended by _Ryan Propper_, Aug 11 2005