A178356 Fibonacci numbers whose successive digits decrease by 1.
0, 1, 2, 3, 5, 8, 21, 987
Offset: 1
Programs
-
Mathematica
Join[{0,1,2,3,5,8},Select[Fibonacci[Range[250]],Union[Differences[ IntegerDigits[#]]]=={-1}&]] (* Harvey P. Dale, Sep 14 2011 *) -
PARI
n=0;while((f=fibonacci(n))<=9876543210,if(is(f),print1(f", "));n++) \\ Charles R Greathouse IV, Sep 14 2011
Formula
Extensions
Definition clarified by Harvey P. Dale, Sep 14 2011
Comments