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 A108706 #11 Nov 29 2019 04:02:04
%S A108706 3037,3631,10271,92251,334651,3302191,3349403,3494923,3500897,3574297,
%T A108706 3971207,9067837,9150139,11914451,16077421,16651111,30842221,32333971,
%U A108706 34747217,71704051,71900987,76642031,78818581,92032757,104062963
%N A108706 Reverse these primes to get golden semiprimes.
%H A108706 Amiram Eldar, <a href="/A108706/b108706.txt">Table of n, a(n) for n = 1..336</a> (terms below 10^11)
%e A108706 The prime 3631 is in the sequence because reversed it is 1363 = 29*47 and abs(29*phi-47) = 0.077014... < 1.
%t A108706 revDigits[n_] := FromDigits @ Reverse @ IntegerDigits[n]; goldQ[n_] := Module[{f = FactorInteger[n]}, If[Length[f] != 2, False, If[Max[f[[;;,2]]] != 1, False, Abs[f[[2,1]] - f[[1,1]] * GoldenRatio] < 1]]]; seqQ[n_] := PrimeQ[n] && goldQ @ revDigits[n]; Select[Range[4*10^6], seqQ] (* _Amiram Eldar_, Nov 29 2019 *)
%Y A108706 Cf. A108540.
%K A108706 base,nonn
%O A108706 1,1
%A A108706 _Jason Earls_, Jun 20 2005
%E A108706 a(19)-a(25) from _Donovan Johnson_, Nov 11 2008
%E A108706 Offset corrected by _Amiram Eldar_, Nov 29 2019