|
%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
|
