cp's OEIS Frontend

A095096 Fibevil numbers: those numbers k for which the parity of 1-fibits in Zeckendorf expansion A014417(k) is even, i.e., for which A095076(k) = 0.

%I A095096 #16 Feb 05 2023 09:24:41
%S A095096 0,4,6,7,9,10,11,14,15,16,18,22,23,24,26,29,33,35,36,37,39,42,46,47,
%T A095096 51,53,54,56,57,58,60,63,67,68,72,74,75,76,80,82,83,85,86,87,90,91,92,
%U A095096 94,97,101,102,106,108,109,110,114,116,117,119,120,121,123,127,129
%N A095096 Fibevil numbers: those numbers k for which the parity of 1-fibits in Zeckendorf expansion A014417(k) is even, i.e., for which A095076(k) = 0.
%H A095096 N. J. A. Sloane, <a href="/A095096/b095096.txt">Table of n, a(n) for n = 1..10002</a>
%p A095096 A095096 := proc(n)
%p A095096     option remember;
%p A095096     local a;
%p A095096     if n =1 then
%p A095096         0;
%p A095096     else
%p A095096         for a from procname(n-1)+1 do
%p A095096             if A095076(a) = 0 then
%p A095096                 return a;
%p A095096             end if;
%p A095096         end do:
%p A095096     end if;
%p A095096 end proc:
%p A095096 seq(A095096(n),n=1..60) ; # _R. J. Mathar_, Sep 22 2020
%t A095096 Flatten @ Position[Mod[DigitCount[Select[Range[0, 1000], BitAnd[#, 2 #] == 0 &], 2, 1], 2], 0] - 1  (* _Amiram Eldar_, Feb 05 2023 *)
%Y A095096 Characteristic function: A095111.
%Y A095096 Complement of A020899.
%Y A095096 Cf. A001969 (evil numbers), A014417, A095076, A095084 (fibevil primes).
%K A095096 nonn
%O A095096 1,2
%A A095096 _Antti Karttunen_, Jun 01 2004
%E A095096 Changed offset to 1. - _N. J. A. Sloane_, Sep 12 2020