%I #20 Mar 21 2022 11:49:38

%S 5,13,29,47,73,89,97,107,131,149,157,173,191,199,233,241,251,293,317,

%T 419,461,479,487,521,547,563,631,673,683,691,733,751,809,827,877,911,

%U 919,937,953,971,1013,1021,1039,1063,1097,1123,1249,1259

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

%H Antti Karttunen and John Moyer, <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a>.

%o (Python)

%o from sympy import fibonacci, primerange

%o def a(n):

%o k=0

%o x=0

%o while n>0:

%o k=0

%o while fibonacci(k)<=n: k+=1

%o x+=10**(k - 3)

%o n-=fibonacci(k - 1)

%o return x

%o def ok(n): return str(a(n))[-3:]=="000"

%o print([n for n in primerange(1, 1261) if ok(n)]) # _Indranil Ghosh_, Jun 08 2017

%Y Intersection of A000040 and A101345.

%Y Cf. A014417, A095065.

%K nonn,base

%O 1,1

%A _Antti Karttunen_, Jun 01 2004