login
A095087
Fib010 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with zero, one and zero.
2
7, 23, 31, 41, 83, 109, 151, 167, 193, 227, 269, 277, 311, 337, 353, 379, 397, 421, 431, 439, 463, 523, 541, 557, 599, 607, 617, 641, 659, 701, 709, 719, 727, 743, 761, 769, 811, 829, 853, 863, 887, 929, 947, 997, 1031, 1049, 1091, 1117, 1151
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:]=="010"
print([n for n in primerange(1, 1201) if ok(n)]) # Indranil Ghosh, Jun 08 2017
CROSSREFS
Intersection of A000040 and A035336. Cf. A095067.
Sequence in context: A078515 A225822 A044449 * A144517 A225185 A091531
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 01 2004
STATUS
approved