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 A195352 #10 Jun 02 2022 11:24:42 %S A195352 2,2,2,3,2,2,3,2,2,3,2,3,7,2,2,3,5,2,3,2,2,3,2,3,7,2,3,7,2,2,3,5,2,3, %T A195352 2,2,3,5,2,3,2,3,19,2,3,7,5,2,3,2,2,3,2,2,3,2,3,7,5,11,7,11,2,3,2,3, %U A195352 13,2,2,3,5,5,7,2,2,3,5,2,3,7,2,3,2,3,13 %N A195352 Smallest prime p such that 2*n+1 = 2*p + q for some odd prime q. %C A195352 Related to Lemoine's conjecture, which states that all odd integers > 5 can be represented as 2*p+q, p, q primes. %D A195352 See A002091. %H A195352 Hugo Pfoertner, <a href="/A195352/b195352.txt">Table of n, a(n) for n = 3..10000</a> %H A195352 Wikipedia, <a href="http://en.wikipedia.org/wiki/Lemoine%27s_conjecture">Lemoine's conjecture</a> %e A195352 a(3)=2 because 2*3+1=7=2*2+3; a(4)=2: 2*3+1=9=2*2+5; a(5)=2: 11=2*2+7; a(6)=3: 13=2*3+7. %t A195352 spp[n_]:=Module[{p=2},While[CompositeQ[(2n+1)-2p],p=NextPrime[p]];p]; Array[ spp,90,3] (* _Harvey P. Dale_, Jun 02 2022 *) %Y A195352 Cf. A002091, A103506 (smallest q), A046927, A195353 (positions of records), A195354 (records), A103153 (prime p=2 excluded), A185091. %K A195352 nonn %O A195352 3,1 %A A195352 _Hugo Pfoertner_, Sep 16 2011