A193213 - OEIS

%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