cp's OEIS Frontend

A095087 Fib010 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with zero, one and zero.

%I A095087 #15 May 09 2021 05:01:42
%S A095087 7,23,31,41,83,109,151,167,193,227,269,277,311,337,353,379,397,421,
%T A095087 431,439,463,523,541,557,599,607,617,641,659,701,709,719,727,743,761,
%U A095087 769,811,829,853,863,887,929,947,997,1031,1049,1091,1117,1151
%N A095087 Fib010 primes, i.e., primes p whose Zeckendorf-expansion A014417(p) ends with zero, one and zero.
%H A095087 A. Karttunen and J. Moyer, <a href="/A095062/a095062.c.txt">C-program for computing the initial terms of this sequence</a>
%o A095087 (Python)
%o A095087 from sympy import fibonacci, primerange
%o A095087 def a(n):
%o A095087     k=0
%o A095087     x=0
%o A095087     while n>0:
%o A095087         k=0
%o A095087         while fibonacci(k)<=n: k+=1
%o A095087         x+=10**(k - 3)
%o A095087         n-=fibonacci(k - 1)
%o A095087     return x
%o A095087 def ok(n): return str(a(n))[-3:]=="010"
%o A095087 print([n for n in primerange(1, 1201) if ok(n)]) # _Indranil Ghosh_, Jun 08 2017
%Y A095087 Intersection of A000040 and A035336. Cf. A095067.
%K A095087 nonn
%O A095087 1,1
%A A095087 _Antti Karttunen_, Jun 01 2004