|
|
A095280
|
|
Lower Wythoff primes, i.e., primes in A000201.
|
|
4
|
|
|
3, 11, 17, 19, 29, 37, 43, 53, 59, 61, 67, 71, 79, 97, 101, 103, 113, 127, 131, 137, 139, 163, 173, 179, 181, 197, 199, 211, 223, 229, 239, 241, 257, 263, 271, 281, 283, 307, 313, 317, 331, 347, 349, 359, 367, 373, 383, 389, 401, 409, 419, 433
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Contains all primes p whose Zeckendorf-expansion A014417(p) ends with an even number of 0's.
For generalizations and conjectures, see A184774.
|
|
LINKS
|
|
|
MAPLE
|
R:= NULL: count:= 0:
for n from 1 while count < 100 do
p:= floor(n*phi);
if isprime(p) then R:= R, p; count:= count+1 fi
od:
R; # _Robert Israel_, Jan 17 2023
|
|
MATHEMATICA
|
|
|
PROG
|
(Python)
from math import isqrt
from itertools import count, islice
from sympy import isprime
def A095280_gen(): # generator of terms
return filter(isprime, ((n+isqrt(5*n**2)>>1) for n in count(1)))
A095280_list = list(islice(A095280_gen(), 30)) # _Chai Wah Wu_, Aug 16 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
_Antti Karttunen_, Jun 04 2004
|
|
STATUS
|
approved
|
|
|
|