A095085 Fib000 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with three zeros.

5, 13, 29, 47, 73, 89, 97, 107, 131, 149, 157, 173, 191, 199, 233, 241, 251, 293, 317, 419, 461, 479, 487, 521, 547, 563, 631, 673, 683, 691, 733, 751, 809, 827, 877, 911, 919, 937, 953, 971, 1013, 1021, 1039, 1063, 1097, 1123, 1249, 1259

Offset: 1

Author

Antti Karttunen, Jun 01 2004

Keywords

• nonn
• base

Links

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

Crossrefs

Intersection of A000040 and A101345.

Cf. A014417, A095065.

Programs

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))[-3:]=="000"
print([n for n in primerange(1, 1261) if ok(n)]) # Indranil Ghosh, Jun 08 2017