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 A118727 #9 May 30 2019 11:51:42
%S A118727 2,5,17,37,197,503,9649,9901,111431,1532093,1556117,71354639,
%T A118727 392849685203,67564865715709,67929521152309,2551756396706233,
%U A118727 345246028268898566519,73744425850091533377950933665103,4418089000986947559043789457061782529431
%N A118727 Primes that are the sum of the numerator and denominator of a harmonic number.
%C A118727 A001008(n) + A002805(n) = A064168(n) is the sum of numerator and denominator in n-th harmonic number H(n) = 1 + 1/2 + 1/3 +...+ 1/n. A064168(n) is prime for n = {1,2,3,4,5,7,9,10,11,14,15,20,27,35,36,39,48..} = A123538.
%H A118727 Robert Israel, <a href="/A118727/b118727.txt">Table of n, a(n) for n = 1..46</a>
%e A118727 H(n) = [ 1/1, 3/2, 11/6, 25/12, 137/60, 49/20, 363/140, 761/280, 7129/2520,... ].
%e A118727 a(1) = 1 + 1 = 2,
%e A118727 a(2) = 3 + 2 = 5,
%e A118727 a(3) = 11 + 6 = 17,
%e A118727 a(4) = 25 + 12 = 37,
%e A118727 a(5) = 137 + 60 = 197,
%e A118727 a(6) = 363 + 140 = 503,
%e A118727 a(7) = 7129 + 2520 = 9649...
%p A118727 select(isprime,map(numer+denom, ListTools:-PartialSums([(1/n) $ n=1..10^3]))); # _Robert Israel_, May 30 2019
%t A118727 Select[Numerator[#]+Denominator[#]&/@HarmonicNumber[Range[100]],PrimeQ] (* _Harvey P. Dale_, Jan 29 2014 *)
%Y A118727 Cf. A064168, A001008, A002805, A123538.
%K A118727 nonn
%O A118727 1,1
%A A118727 _Alexander Adamchuk_, May 21 2006