|
%I #19 Sep 28 2021 16:38:03
%S 2,3,5,11,13,19,23,29,31,37,47,53,61,71,73,79,89,97,103,107,113,131,
%T 137,139,149,157,163,167,173,179,181,191,197,199,223,233,239,241,251,
%U 257,277,281,283,293,307,311,317,349,353,359,367,379,383,401,409,419
%N Primes generated by the golden sieve, cf. A099267.
%C Complement of A193214 with respect to A000040.
%C Intersection of A099267 and A000040.
%H Reinhard Zumkeller, <a href="/A193213/b193213.txt">Table of n, a(n) for n = 1..10000</a>
%t With[{t = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0, 1}}] &, {0}, 7]}, Select[Position[t, 1][[All, 1]], PrimeQ]] (* _Michael De Vlieger_, Sep 28 2021, after _Benoit Cloitre_ at A099267 *)
%o (Haskell)
%o a193213 n = a193213_list !! (n-1)
%o a193213_list = filter ((== 1) . a010051) a099267_list
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Sep 18 2011
|
