cp's OEIS Frontend

A290839 a(n) = smallest prime p such that 2p + 2n - 1 is prime.

%I A290839 #24 Dec 14 2017 22:18:53
%S A290839 2,2,2,3,2,2,3,2,2,3,2,5,3,2,2,7,3,2,3,2,2,3,2,7,3,2,5,3,2,2,7,3,2,3,
%T A290839 2,2,13,3,2,3,2,11,3,2,5,7,3,2,3,2,2,3,2,2,3,2,13,7,11,5,19,3,2,3,2,5,
%U A290839 3,2,2,7,5,5,3,2,2,7,3,2,13,3,2,3,2,7,3,2
%N A290839 a(n) = smallest prime p such that 2p + 2n - 1 is prime.
%H A290839 Iain Fox, <a href="/A290839/b290839.txt">Table of n, a(n) for n = 0..20000</a>
%F A290839 a(-n) = A290838(n+1). - _Iain Fox_, Dec 14 2017
%t A290839 Table[j=0; found=False; While[!found, j++; found=PrimeQ[2Prime[j]+2n-1]]; Prime[j], {n, 85}]
%o A290839 (PARI) a(n) = {my(p=2); while(!isprime(2*p+2*n-1), p = nextprime(p+1)); p;} \\ _Michel Marcus_, Aug 12 2017
%Y A290839 Cf. A005384, A023204, A023205, A023206, A023207, A171517, A020483, A290838.
%Y A290839 Cf. A067076 (indices n at which a(n) = 2).
%K A290839 nonn,easy
%O A290839 0,1
%A A290839 _XU Pingya_, Aug 12 2017
%E A290839 a(0) prepended by _Iain Fox_, Dec 14 2017