login
A095084
Fibevil primes, i.e., primes p whose Zeckendorf-expansion A014417(p) contains an even number of 1-fibits.
6
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
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.
Sequence in context: A039511 A103667 A033207 * A182569 A067790 A271043
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 01 2004
STATUS
approved