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,1

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.

Mathematica

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

Crossrefs

Intersection of A000040 and A095096.

Cf. A014417, A095083, A095064.

Sequence in context: A039511 A103667 A033207 * A182569 A067790 A271043

Adjacent sequences: A095081 A095082 A095083 * A095085 A095086 A095087

Keyword

nonn

Author

Antti Karttunen, Jun 01 2004

Status

approved