|
%I #20 Jan 04 2019 13:58:06
%S 1,5,350,157814,2992166,68999566966858
%N Numbers k such that Fibonacci(k) in base 3 ends with k in base 3.
%C No more terms < 9*10^18. - _Lars Blomberg_, Jan 04 2019
%e 350 = (1,1,0,2,2,2) in base 3;
%e F(350) = (1,2,1,2,2,0,...1,1,0,2,2,2) in base 3.
%t fibo[n_,b_]:={au=Fibonacci[n],ab=Floor[Log[b,n]]+1,Mod[au,b^ab]==n}//Last;Select[Range[500000],fibo[#,3]&]
%Y Cf. A000045 (Fibonacci), A007089 (numbers in base 3).
%K nonn,more
%O 1,2
%A _José María Grau Ribas_, Aug 05 2011
%E a(5) from _Alois P. Heinz_, Aug 05 2011
%E a(6) from _Lars Blomberg_, Jan 04 2019
|
