A095082 Fib00 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with two zeros.

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

Offset: 1

Author

Antti Karttunen, Jun 01 2004

Keywords

• nonn

Links

• A. Karttunen and J. Moyer, C-program for computing the initial terms of this sequence

Crossrefs

Cf. A095062. Intersection of A000040 and A026274. Union of A095085 and A095088.

Programs

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(xCharles R Greathouse IV, Nov 10 2021

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