cp's OEIS Frontend

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.

A195352 Smallest prime p such that 2*n+1 = 2*p + q for some odd prime q.

This page as a plain text file.
%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