# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a095088 Showing 1-1 of 1 %I A095088 #14 May 09 2021 04:59:34 %S A095088 3,11,37,71,79,113,139,181,223,257,283,359,367,401,409,443,503,571, %T A095088 587,613,647,757,859,977,1019,1087,1163,1181,1223,1231,1291,1307,1367, %U A095088 1409,1451,1511,1553,1579,1613,1621,1663,1697,1723,1867,1901 %N A095088 Fib100 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with one and two final zeros. %H A095088 A. Karttunen and J. Moyer, C-program for computing the initial terms of this sequence %o A095088 (Python) %o A095088 from sympy import fibonacci, primerange %o A095088 def a(n): %o A095088 k=0 %o A095088 x=0 %o A095088 while n>0: %o A095088 k=0 %o A095088 while fibonacci(k)<=n: k+=1 %o A095088 x+=10**(k - 3) %o A095088 n-=fibonacci(k - 1) %o A095088 return x %o A095088 def ok(n): return str(a(n)).endswith("100") %o A095088 print([n for n in primerange(1, 2001) if ok(n)]) # _Indranil Ghosh_, Jun 08 2017 %Y A095088 Intersection of A000040 and A035337. Cf. A095068. %K A095088 nonn %O A095088 1,1 %A A095088 _Antti Karttunen_, Jun 01 2004 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE