A095096 - OEIS

%I #16 Feb 05 2023 09:24:41

%S 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 51,53,54,56,57,58,60,63,67,68,72,74,75,76,80,82,83,85,86,87,90,91,92,

%U 94,97,101,102,106,108,109,110,114,116,117,119,120,121,123,127,129

%N 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 N. J. A. Sloane, <a href="/A095096/b095096.txt">Table of n, a(n) for n = 1..10002</a>

%p A095096 := proc(n)

%p     option remember;

%p     local a;

%p     if n =1 then

%p         0;

%p     else

%p         for a from procname(n-1)+1 do

%p             if A095076(a) = 0 then

%p                 return a;

%p             end if;

%p         end do:

%p     end if;

%p end proc:

%p seq(A095096(n),n=1..60) ; # _R. J. Mathar_, Sep 22 2020

%t Flatten @ Position[Mod[DigitCount[Select[Range[0, 1000], BitAnd[#, 2 #] == 0 &], 2, 1], 2], 0] - 1  (* _Amiram Eldar_, Feb 05 2023 *)

%Y Characteristic function: A095111.

%Y Complement of A020899.

%Y Cf. A001969 (evil numbers), A014417, A095076, A095084 (fibevil primes).

%K nonn

%O 1,2

%A _Antti Karttunen_, Jun 01 2004

%E Changed offset to 1. - _N. J. A. Sloane_, Sep 12 2020