A273046 Fibonacci numbers with digits in nonincreasing order.

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

Offset

1,4

Comments

Presumably there are no more terms in this sequence. - Charles R Greathouse IV, May 17 2016

Links

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

Mathematica

Select[Fibonacci@ Range[0, 10^4], Reverse@ Sort@ # == # &@ IntegerDigits@ # &] (* Michael De Vlieger, May 13 2016 *)

Prog

(PARI) fibmod(n, m)=lift(((Mod([1, 1; 1, 0], m))^n)[1, 2])
isA009996(n)=my(d=digits(n)); vecsort(d, , 4)==d
B1=10^9; B2=10^57;
for(n=1, 1e9, if(isA009996(fibmod(n, B1)) && isA009996(fibmod(n, B2)) && isA009996(F=fibonacci(n)), print1(F", "))) \\ Charles R Greathouse IV, May 17 2016

Crossrefs

Cf. A000045, A009996, A272918, A273045.

Sequence in context: A161468 A229040 A143873 * A117774 A053056 A041157

Adjacent sequences: A273043 A273044 A273045 * A273047 A273048 A273049

Keyword

nonn,base

Author

Omar E. Pol, May 13 2016

Status

approved