OFFSET
0,3
COMMENTS
The Fibonacci index of the 12th to 25th terms respectively are 216, 7, 111, 130, 168, 37, 27, 112, 90, 8, 183, 286, 252 and 25.
EXAMPLE
a(11) = 17711 is the smallest Fibonacci number ending in 11.
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 or (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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved