This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A193213 #19 Sep 28 2021 16:38:03
%S A193213 2,3,5,11,13,19,23,29,31,37,47,53,61,71,73,79,89,97,103,107,113,131,
%T A193213 137,139,149,157,163,167,173,179,181,191,197,199,223,233,239,241,251,
%U A193213 257,277,281,283,293,307,311,317,349,353,359,367,379,383,401,409,419
%N A193213 Primes generated by the golden sieve, cf. A099267.
%C A193213 Complement of A193214 with respect to A000040.
%C A193213 Intersection of A099267 and A000040.
%H A193213 Reinhard Zumkeller, <a href="/A193213/b193213.txt">Table of n, a(n) for n = 1..10000</a>
%t A193213 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 A193213 (Haskell)
%o A193213 a193213 n = a193213_list !! (n-1)
%o A193213 a193213_list = filter ((== 1) . a010051) a099267_list
%K A193213 nonn
%O A193213 1,1
%A A193213 _Reinhard Zumkeller_, Sep 18 2011