%I #22 Oct 01 2014 16:47:54
%S 3,11,19,79,41,167,127,233,179,461,227,883,433,569,719,1801,593,1861,
%T 859,1553,1319,3863,1103,3499,2027,3671,2239,6089,1499,6323,3583,5147,
%U 3739,5879,2843,11173,4597,7253,4799,14923,3779,14533,6599,7919,7589
%N n-th prime in the arithmetic progression n+k*(n+1) with k>0.
%H T. D. Noe, <a href="/A088733/b088733.txt">Table of n, a(n) for n = 1..10000</a>
%H T. D. Noe, <a href="/A088733/a088733.png">Linear Plot</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DirichletsTheorem.html">Dirichlet's Theorem</a>
%H <a href="/index/Pri#primes_AP">Index entries for sequences related to primes in arithmetic progressions</a>
%e n=4, the progression starts: 4, 9, 14, 19, 24, 29, 34, 39, 44, 49,
%e 54, 59, 64, 69, 74, 79, 84, 89, etc., with primes 19, 29, 59, 79, 89, etc.,
%e 79 is the fourth prime: a(4)=79.
%t Table[k = 1; Do[While[p = n + k*(n + 1); ! PrimeQ[p], k++]; k++, {n}]; p, {n, 100}] (* _T. D. Noe_, Oct 20 2011 *)
%o (Haskell)
%o a088733 n = last $ take n $
%o [q | q <- [2 * n + 1, 3 * n + 2 ..], a010051' q == 1]
%o -- _Reinhard Zumkeller_, Oct 01 2014
%Y Cf. A088732.
%Y Cf. A010051.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Oct 12 2003
|