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 A165571 #10 Nov 28 2019 06:14:20
%S A165571 2,3,7,19,23,29,97,353,563,631,919,1453,2207,15271,15737,42797,49939,
%T A165571 133559,179317,287557,508451,918011,1103483,1981891,9181097,16958611,
%U A165571 17351447,52204391,66602803,99641617,134887397,487195147,629449511,943818943,1527963169,2048029369
%N A165571 Lesser prime factor of successively better golden semiprimes.
%C A165571 See A165569 and A165570 for the definition. Probably a subset of A108541.
%H A165571 Amiram Eldar, <a href="/A165571/b165571.txt">Table of n, a(n) for n = 1..48</a>
%F A165571 a(n) = A000040(A165569(n)).
%F A165571 a(n) = A165570(n)/A165572(n).
%t A165571 f[p_] := Module[{x = GoldenRatio * p, p1, p2}, p1 = NextPrime[x, -1]; p2 = NextPrime[p1]; If[p2 - x > x - p1, p1, p2]]; seq={}; dm = 1; p1 = 1; Do[p1 = NextPrime[p1]; k++; p2 = f[p1]; d = Abs[p2/p1 - GoldenRatio]; If[d < dm, dm = d; AppendTo[seq, p1]], {10^4}]; seq (* _Amiram Eldar_, Nov 28 2019 *)
%Y A165571 Cf. A108539, A165569, A165570, A165572.
%K A165571 nonn
%O A165571 1,1
%A A165571 _Antti Karttunen_, Sep 22 2009
%E A165571 a(16)-a(23) from _Donovan Johnson_, May 13 2010
%E A165571 a(24)-a(36) from _Amiram Eldar_, Nov 28 2019