Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #11 Jul 05 2015 09:50:55
%S 10,10,5,11,21,8,124,52,54,43,24,970,297,457,467,1520,2516,7269,12414,
%T 3804,11048,25020,135635,56389,710228,44151,21082,762684,696414,
%U 1085414,6472621,2979828,15220551,72130,9934617,79533387
%N 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 a(1)= 10 because sqrt( 10)= 3.(1)622...
%e a(2)= 10 because sqrt( 10)= 3.(1)622...
%e a(3)= 5 because sqrt( 5)= 2.(2)360...
%e a(4)= 11 because sqrt( 11)= 3.(3)166...
%e a(5)= 21 because sqrt( 21)= 4.(5)825...
%e a(6)= 8 because sqrt( 8)= 2.(8)284...
%e a(7)= 124 because sqrt(124)=11.(13)55...
%e etc.
%t 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 Cf. A074841, A074762.
%K nonn,base
%O 1,1
%A _Gil Broussard_, Nov 17 2004
%E Corrected and extended by _Ryan Propper_, Aug 11 2005