A095089 Fib101 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends as one, zero, one.

17, 59, 67, 101, 127, 211, 271, 313, 347, 373, 389, 449, 457, 491, 499, 593, 601, 643, 661, 677, 787, 821, 881, 983, 991, 1033, 1093, 1109, 1237, 1279, 1321, 1381, 1423, 1499, 1559, 1567, 1601, 1609, 1669, 1753, 1787, 1847, 1889, 1931, 1999

Offset

1,1

Links

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

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

Crossrefs

Intersection of A000040 and A134860. Cf. A014417, A095069.

Sequence in context: A020879 A029914 A058319 * A106922 A110092 A360155

Adjacent sequences: A095086 A095087 A095088 * A095090 A095091 A095092

Keyword

nonn

Author

Antti Karttunen, Jun 01 2004

Status

approved