|
%I #5 Jul 07 2017 13:37:16
%S 5,11,17,41,59,137,149,179,191,197,227,269,347,419,431,461,599,617,
%T 1019,1031,1229,1289,1319,1427,1607,1697,1787,2027,2081,2087,2141,
%U 2309,2381,2549,2591,2711,2789,3299,3329,3359,3371,3389,3539,3581,3929,4001,4019
%N Lower bounds of twin prime pairs of the form prime(2n+1).
%H Harvey P. Dale, <a href="/A094205/b094205.txt">Table of n, a(n) for n = 0..1000</a>
%e For n=3, 2n+1 = 7 and prime(7) = 17 the lower bound of the (17,19) twin prime pair.
%t Select[Table[Prime[2n+1],{n,300}],PrimeQ[#+2]&] (* _Harvey P. Dale_, Jul 07 2017 *)
%o (PARI) f(n,start,step) = forstep(x=start,n,step,y=prime(x);if(isprime(y+2),print1(y",")))
%K easy,nonn
%O 0,1
%A _Cino Hilliard_, May 26 2004
|
