cp's OEIS Frontend

A229040 Fibonacci numbers in which parity of the decimal digits alternates.

%I A229040 #12 Jun 30 2020 07:05:27
%S A229040 0,1,2,3,5,8,21,34,89,610,987,4181,6765
%N A229040 Fibonacci numbers in which parity of the decimal digits alternates.
%C A229040 No more values through F(19000). - _R. J. Mathar_, Jun 30 2020
%F A229040 A000045 INTERSECTION A030141.
%p A229040 isA030141 := proc(n)
%p A229040     dgs := convert(n,base,10) ;
%p A229040     for i from 2 to nops(dgs) do
%p A229040         if modp(op(i,dgs),2) = modp(op(i-1,dgs),2) then
%p A229040             return false;
%p A229040         end if;
%p A229040     end do:
%p A229040     true ;
%p A229040 end proc:
%p A229040 for i from 0 do
%p A229040     f := combinat[fibonacci](i) ;
%p A229040     if isA030141(f) then
%p A229040         print(f) ;
%p A229040     end if;
%p A229040 end do: # _R. J. Mathar_, Mar 13 2015
%Y A229040 Cf. A000045, A030141, A030152, A030144.
%K A229040 nonn,base
%O A229040 1,3
%A A229040 _Jonathan Vos Post_, Sep 12 2013