A095088 - OEIS

%I #14 May 09 2021 04:59:34

%S 3,11,37,71,79,113,139,181,223,257,283,359,367,401,409,443,503,571,

%T 587,613,647,757,859,977,1019,1087,1163,1181,1223,1231,1291,1307,1367,

%U 1409,1451,1511,1553,1579,1613,1621,1663,1697,1723,1867,1901

%N Fib100 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with one and two final zeros.

%H A. Karttunen and J. Moyer, <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a>

%o (Python)

%o from sympy import fibonacci, primerange

%o def a(n):

%o     k=0

%o     x=0

%o     while n>0:

%o         k=0

%o         while fibonacci(k)<=n: k+=1

%o         x+=10**(k - 3)

%o         n-=fibonacci(k - 1)

%o     return x

%o def ok(n): return str(a(n)).endswith("100")

%o print([n for n in primerange(1, 2001) if ok(n)]) # _Indranil Ghosh_, Jun 08 2017

%Y Intersection of A000040 and A035337. Cf. A095068.

%K nonn

%O 1,1

%A _Antti Karttunen_, Jun 01 2004