来自在线整数百科全书的问候语!http://oeis.org/ Search: id:a095083 Showing 1-1 of 1 %I A095083 %S A095083 2,3,5,13,17,19,31,41,43,59,61,71,73,79,89,103,107,113,131,151,167, %T A095083 173,179,181,191,197,211,227,229,233,239,251,257,269,293,307,313,347, %U A095083 349,353,367,383,401,419,431,433,449,457,463,467,479,487,491 %N A095083 Fibodious primes, i.e., primes p whose Zeckendorf-expansion A014417(p) contains an odd number of 1-fibits. %H A095083 Indranil Ghosh,n,a(n)n=1…656的表%H A095083- A. Karttunen和J. Moyer,计算序列的初始项的C程序%o A095083 (Python) %o A095083 from sympy import fibonacci, primerange %o A095083 def a(n): %o A095083 k=0 %o A095083 x=0 %o A095083 while n>0: %o A095083 k=0 %o A095083 while fibonacci(k)<=n: k+=1 %o A095083 x+=10**(k - 3) %o A095083 n-=fibonacci(k - 1) %o A095083 return x %o A095083 def ok(n): return 1 if str(a(n)).count("1")%2==1 else 0 %o A095083 print [n for n in primerange(1, 1001) if ok(n)] # _Indranil Ghosh_, Jun 08 2017 %Y A095083 Intersection of A000040 and A020899. A095084A095063.0%K A095083ON9%50AO A0950831.1%,A095083AANTI KARTUUNENY,JUN 01 2004‰内容在OEIS最终用户许可协议下可用:HTTP:/OEIS.Org/许可证