login
Fibevil primes, i.e., primes p whose Zeckendorf-expansion A014417(p) contains an even number of 1-fibits.
6

%I #14 Feb 07 2023 05:55:04

%S 7,11,23,29,37,47,53,67,83,97,101,109,127,137,139,149,157,163,193,199,

%T 223,241,263,271,277,281,283,311,317,331,337,359,373,379,389,397,409,

%U 421,439,443,461,499,503,521,547,557,563,577,593,601,607

%N Fibevil primes, i.e., primes p whose Zeckendorf-expansion A014417(p) contains an even number of 1-fibits.

%H Amiram Eldar, <a href="/A095084/b095084.txt">Table of n, a(n) for n = 1..10000</a>

%H Antti Karttunen and John Moyer, <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a>.

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

%Y Intersection of A000040 and A095096.

%Y Cf. A014417, A095083, A095064.

%K nonn

%O 1,1

%A _Antti Karttunen_, Jun 01 2004