A273046 - OEIS

A273046

Fibonacci numbers with digits in nonincreasing order.

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

(list; graph; refs; listen; history; text; internal format)

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