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

7, 11, 23, 29, 37, 47, 53, 67, 83, 97, 101, 109, 127, 137, 139, 149, 157, 163, 193, 199, 223, 241, 263, 271, 277, 281, 283, 311, 317, 331, 337, 359, 373, 379, 389, 397, 409, 421, 439, 443, 461, 499, 503, 521, 547, 557, 563, 577, 593, 601, 607

Offset: 1

Author

Antti Karttunen, Jun 01 2004

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Antti Karttunen and John Moyer, C-program for computing the initial terms of this sequence.

Crossrefs

Intersection of A000040 and A095096.

Cf. A014417, A095083, A095064.

Programs

Mathematica

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