A116934 First prime in the arithmetic progression (n+k*p: k>0), where p is the smallest coprime greater than n+1.
7, 7, 13, 11, 19, 17, 43, 19, 31, 23, 37, 29, 43, 31, 83, 73, 131, 41, 61, 43, 67, 47, 73, 53, 79, 113, 317, 59, 277, 67, 97, 67, 103, 71, 109, 241, 193, 79, 367, 83, 127, 89, 223, 373, 139, 193, 439, 101, 151, 103, 157, 107, 163, 113, 283, 233, 293, 241, 181, 127, 313
Offset: 1
Keywords
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
- Index entries for sequences related to primes in arithmetic progressions
- Eric Weisstein's World of Mathematics, Dirichlet's Theorem.
Programs
-
Haskell
a116934 n = head [q | k <- [1..], let q = n + k * a079578 n, a010051' q == 1] -- Reinhard Zumkeller, Oct 01 2014
Comments