|
|
A095088
|
|
Fib100 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with one and two final zeros.
|
|
2
|
|
|
3, 11, 37, 71, 79, 113, 139, 181, 223, 257, 283, 359, 367, 401, 409, 443, 503, 571, 587, 613, 647, 757, 859, 977, 1019, 1087, 1163, 1181, 1223, 1231, 1291, 1307, 1367, 1409, 1451, 1511, 1553, 1579, 1613, 1621, 1663, 1697, 1723, 1867, 1901
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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)).endswith("100")
print([n for n in primerange(1, 2001) if ok(n)]) # Indranil Ghosh, Jun 08 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|