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 A108539 #12 Feb 16 2025 08:32:58
%S A108539 3,5,7,11,17,23,29,31,37,47,53,59,67,71,79,83,97,97,109,113,113,127,
%T A108539 137,149,157,163,167,173,179,181,211,211,223,223,241,241,257,263,271,
%U A108539 281,293,293,311,313,317,317,337,359,367,373,379,389,389,409,419,421,433
%N A108539 a(n) = that prime p such that p/prime(n) is nearest to phi, the golden ratio: phi=(1+sqrt(5))/2.
%C A108539 a(n)*prime(n) is a term of A108540 iff abs(phi-a(n)/prime(n))<1.
%H A108539 Amiram Eldar, <a href="/A108539/b108539.txt">Table of n, a(n) for n = 1..10000</a>
%H A108539 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/GoldenRatio.html">Golden Ratio</a>
%t A108539 a[n_] := Module[{x = GoldenRatio * Prime[n]}, p1 = NextPrime[x, -1]; p2 = NextPrime[p1]; If[x - p1 < p2 - x, p1, p2]]; Array[a, 57] (* _Amiram Eldar_, Nov 28 2019 *)
%Y A108539 Cf. A001622, A007067, A108540.
%Y A108539 A108542 is a subsequence.
%K A108539 nonn
%O A108539 1,1
%A A108539 _Reinhard Zumkeller_, Jun 09 2005
%E A108539 Corrected by _T. D. Noe_, Oct 25 2006