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,1

Links

Table of n, a(n) for n=1..52.

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

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

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

Sequence in context: A153075 A287940 A237349 * A375793 A265396 A216553

Adjacent sequences: A095079 A095080 A095081 * A095083 A095084 A095085

Keyword

nonn

Author

Antti Karttunen, Jun 01 2004

Status

approved