login
A095086
Fib001 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with two zeros and final 1.
3
19, 43, 53, 61, 103, 137, 163, 179, 197, 229, 239, 263, 281, 307, 331, 349, 383, 433, 467, 509, 569, 577, 619, 653, 739, 773, 797, 823, 839, 857, 883, 907, 941, 967, 1009, 1051, 1061, 1069, 1103, 1129, 1153, 1171, 1187, 1213, 1229, 1289
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:]=="001"
print([n for n in primerange(1, 1301) if ok(n)]) # Indranil Ghosh, Jun 08 2017
CROSSREFS
Intersection of A000040 and A095098. Cf. A014417, A095066.
Sequence in context: A139811 A095101 A162856 * A095079 A238676 A087779
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 01 2004
STATUS
approved