login
A095085
Fib000 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with three zeros.
3
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,1
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))[-3:]=="000"
print([n for n in primerange(1, 1261) if ok(n)]) # Indranil Ghosh, Jun 08 2017
CROSSREFS
Intersection of A000040 and A101345.
Sequence in context: A206258 A270106 A304904 * A309371 A230281 A093836
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Jun 01 2004
STATUS
approved