A178356 Fibonacci numbers whose successive digits decrease by 1.

0, 1, 2, 3, 5, 8, 21, 987

Offset: 1

Author

Felix Tubiana, May 25 2010

Keywords

• nonn
• base
• fini
• full

Comments

Only need to consider the Fibonacci numbers less than 9876543210.

Crossrefs

Cf. A000045, A138142, A178355.

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

{ A000045 } intersect { A138142 }. - Alois P. Heinz, Jul 05 2022

Extensions

Definition clarified by Harvey P. Dale, Sep 14 2011