login
Numbers k such that the decimal expansion of the k-th Fibonacci number contains no pair of consecutive equal digits (probably finite).
1

%I #8 Sep 04 2024 18:30:42

%S 1,2,3,4,5,6,7,8,9,11,15,16,17,18,19,20,21,23,24,25,26,27,30,31,32,33,

%T 36,37,39,42,47,48,50,54,57,58,61,68,70,80,86,107,134,147,151,177

%N Numbers k such that the decimal expansion of the k-th Fibonacci number contains no pair of consecutive equal digits (probably finite).

%t Select[Range[200],FreeQ[Differences[IntegerDigits[Fibonacci[#]]],0]&] (* _Harvey P. Dale_, Sep 04 2024 *)

%Y Cf. A043096, A000045, A050762.

%K nonn,base

%O 0,2

%A _Patrick De Geest_, Sep 15 1999