cp's OEIS Frontend

A095086 Fib001 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with two zeros and final 1.

%I A095086 #15 May 07 2021 13:28:47
%S A095086 19,43,53,61,103,137,163,179,197,229,239,263,281,307,331,349,383,433,
%T A095086 467,509,569,577,619,653,739,773,797,823,839,857,883,907,941,967,1009,
%U A095086 1051,1061,1069,1103,1129,1153,1171,1187,1213,1229,1289
%N A095086 Fib001 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with two zeros and final 1.
%H A095086 A. Karttunen and J. Moyer, <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a>
%o A095086 (Python)
%o A095086 from sympy import fibonacci, primerange
%o A095086 def a(n):
%o A095086     k=0
%o A095086     x=0
%o A095086     while n>0:
%o A095086         k=0
%o A095086         while fibonacci(k)<=n: k+=1
%o A095086         x+=10**(k - 3)
%o A095086         n-=fibonacci(k - 1)
%o A095086     return x
%o A095086 def ok(n): return str(a(n))[-3:]=="001"
%o A095086 print([n for n in primerange(1, 1301) if ok(n)]) # _Indranil Ghosh_, Jun 08 2017
%Y A095086 Intersection of A000040 and A095098. Cf. A014417, A095066.
%K A095086 nonn
%O A095086 1,1
%A A095086 _Antti Karttunen_, Jun 01 2004