OFFSET
0,3
MATHEMATICA
fQ[n_]:=Module[{idni=IntegerDigits[First[n]], indf=IntegerDigits[Last[n]]}, idni== Take[indf, -Length[idni]]]; Transpose[Select[Table[ {n, Fibonacci[n]}, {n, 0, 150}], fQ]][[2]] (* Harvey P. Dale, Apr 21 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Oct 15 1999
STATUS
approved