|
|
A095082
|
|
Fib00 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with two zeros.
|
|
2
|
|
|
3, 5, 11, 13, 29, 37, 47, 71, 73, 79, 89, 97, 107, 113, 131, 139, 149, 157, 173, 181, 191, 199, 223, 233, 241, 251, 257, 283, 293, 317, 359, 367, 401, 409, 419, 443, 461, 479, 487, 503, 521, 547, 563, 571, 587, 613, 631, 647, 673, 683, 691, 733
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(Python)
from sympy import fibonacci, primerange
def a(n):
k=0
x=0
while n>0:
k=0
while fibonacci(k)<=n: k+=1
x+=10**(k - 3)
n-=fibonacci(k - 1)
return x
def ok(n): return str(a(n))[-2:]=="00"
print([n for n in primerange(1, 1001) if ok(n)]) # Indranil Ghosh, Jun 08 2017
(PARI) list(lim)=my(v=List(), w=quadgen(20), phi=(1+w)/2, p2=phi^2, x=(2*phi-2)*p2, q); lim=lim\1+1; while(x<lim, if(isprime(q=x\1), listput(v, q)); x+=p2); Vec(v) \\ Charles R Greathouse IV, Nov 10 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|