A023184 Least Fibonacci number ending with n.
0, 1, 2, 3, 34, 5, 10946, 377, 8, 89, 610, 17711, 619220451666590135228675387863297874269396512, 13, 70492524767089125814114, 659034621587630041982498215, 57602132235424755886206198685365216, 24157817, 196418, 114059301025943970552219, 1548008755920
Offset: 0
Examples
a(11) = 17711 is the smallest Fibonacci number ending in 11.
Programs
-
Maple
with(combinat):for n from 1 to 40 do e := 1; g := ceil(log(n+1)/log(10)-0.00001): while((fibonacci(e) mod 10^g)
n) do e := e+1:end do: q[n] := fibonacci(e):end do:seq(q[i],i=1..40); -
Mathematica
d[n_]:=IntegerDigits[n]; Table[j=0; While[Length[d[Fibonacci[j]]]<(le=Length[y=d[n]]), j++]; i=j; While[Take[d[x=Fibonacci[i]],-le]!=y,i++]; x,{n,0,20}] (* Jayanta Basu, May 18 2013 *)
Comments