A178356 Fibonacci numbers whose successive digits decrease by 1.

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

Offset

1,3

Comments

Only need to consider the Fibonacci numbers less than 9876543210.

Links

Table of n, a(n) for n=1..8.

Formula

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

Mathematica

Join[{0, 1, 2, 3, 5, 8}, Select[Fibonacci[Range[250]], Union[Differences[ IntegerDigits[#]]]=={-1}&]] (* Harvey P. Dale, Sep 14 2011 *)

Prog

(PARI) n=0; while((f=fibonacci(n))<=9876543210, if(is(f), print1(f", ")); n++) \\ Charles R Greathouse IV, Sep 14 2011

Crossrefs

Cf. A000045, A138142, A178355.

Sequence in context: A117774 A053056 A041157 * A042785 A136682 A107467

Adjacent sequences: A178353 A178354 A178355 * A178357 A178358 A178359

Keyword

nonn,base,fini,full

Author

Felix Tubiana, May 25 2010

Extensions

Definition clarified by Harvey P. Dale, Sep 14 2011

Status

approved