A273045 Fibonacci numbers with digits in nondecreasing order.

0, 1, 1, 2, 3, 5, 8, 13, 34, 55, 89, 144, 233, 377

Offset

1,4

Comments

Intersection of A000045 and A009994. - Felix Fröhlich, May 16 2016

Conjecture: The sequence is finite, with 377 being the last term. I have verified the conjecture up to A000045(10^5). - Felix Fröhlich, May 16 2016

Conjecture verified up to Fibonacci(10^8). - Charles R Greathouse IV, May 17 2016

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000045, A009994, A272918, A273046.

Sequence in context: A115212 A158083 A042163 * A014259 A001129 A281599

Adjacent sequences: A273042 A273043 A273044 * A273046 A273047 A273048

Keyword

nonn,base

Author

Omar E. Pol, May 13 2016

Extensions

Offset adjusted by Felix Fröhlich, May 16 2016

Status

approved