Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
editing
approved
(Haskell)
a088733 n = last $ take n $
[q | q <- [2 * n + 1, 3 * n + 2 ..], a010051' q == 1]
-- Reinhard Zumkeller, Oct 01 2014
Cf. A010051.
approved
editing
Table[k = 1; Do[While[p = n + k*(n + 1); ! PrimeQ[p], k++]; k++, {n}]; p, {n, 100}] (* _T. D. Noe, _, Oct 20 2011 *)
_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, Oct 12 2003
editing
approved
<a href="/index/Pri#primes_AP">Index entries for sequences related to primes in arithmetic progressions</a>
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DirichletsTheorem.html">Dirichlet's Theorem</a>
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DirichletsTheorem.html">Dirichlet's Theorem</a>
<a href="/index/Pri#primes_AP">Index entries for sequences related to primes in arithmetic progressions</a>
T. D. Noe, <a href="/A088733/a088733.png">Linear Plot</a>
approved
editing
T. D. Noe, <a href="/A088733/b088733_1.txt">Table of n, a(n) for n = 1..10000</a>
editing
approved