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 A059786 #24 May 03 2019 17:12:53 %S A059786 5,7,11,17,23,29,37,41,47,59,67,79,83,89,97,107,127,127,137,149,149, %T A059786 163,167,179,197,211,211,223,223,227,257,263,277,281,307,307,317,331, %U A059786 337,347,359,367,383,389,397,401,431,449,457,461,467,479,487,503,521 %N A059786 Smallest prime after 2*(n-th prime). %H A059786 Andrew Howroyd, <a href="/A059786/b059786.txt">Table of n, a(n) for n = 1..1000</a> %F A059786 a(n) = A117928(n,1) for n>1. - _Reinhard Zumkeller_, Apr 03 2006 %e A059786 n=17, 18, p(17)=59, p(18)=61, after 118 and 122 the next prime is 127, so a(17)=a(18)=127. %p A059786 with(numtheory): [seq(nextprime(2*ithprime(k)),k=1..256)]; %t A059786 NextPrime/@(2*Prime[Range[60]]) (* _Harvey P. Dale_, May 03 2019 *) %o A059786 (PARI) a(n) = nextprime(2*prime(n)+1); \\ _Michel Marcus_, Sep 21 2017 %Y A059786 Cf. A055496, A006992. %K A059786 nonn %O A059786 1,1 %A A059786 _Labos Elemer_, Feb 22 2001