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 A108541 #9 Nov 28 2019 06:13:27
%S A108541 2,3,7,11,19,23,29,37,41,67,79,97,101,103,107,131,149,163,167,181,193,
%T A108541 227,241,271,277,283,311,353,367,379,383,397,409,419,433,449,457,487,
%U A108541 509,563,607,613,631,661,719,733,761,797,853,883,919,941,971,997,1031
%N A108541 Lesser prime factor of n-th golden semiprime.
%C A108541 abs(phi*a(n) - A108542(n)) < 1, where phi = golden ratio = (1+sqrt(5))/2.
%H A108541 Amiram Eldar, <a href="/A108541/b108541.txt">Table of n, a(n) for n = 1..10000</a>
%F A108541 a(n) = A108540(n)/A108542(n).
%t A108541 f[p_] := Module[{x = GoldenRatio * p}, p1 = NextPrime[x, -1]; p2 = NextPrime[p1]; q = If[x - p1 < p2 - x, p1, p2]; If[Abs[q - x] < 1, q, 0]]; seq = {}; p=1; Do[p = NextPrime[p]; If[f[p] > 0, AppendTo[seq, p]], {200}]; seq (* _Amiram Eldar_, Nov 28 2019 *)
%Y A108541 Cf. A001622, A084126, A108539, A108540, A108542, A108543, A108544.
%K A108541 nonn
%O A108541 1,1
%A A108541 _Reinhard Zumkeller_, Jun 09 2005