|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|