|
|
A178356
|
|
Fibonacci numbers whose successive digits decrease by 1.
|
|
2
|
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Only need to consider the Fibonacci numbers less than 9876543210.
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|