|
|
A088733
|
|
n-th prime in the arithmetic progression n+k*(n+1) with k>0.
|
|
2
|
|
|
3, 11, 19, 79, 41, 167, 127, 233, 179, 461, 227, 883, 433, 569, 719, 1801, 593, 1861, 859, 1553, 1319, 3863, 1103, 3499, 2027, 3671, 2239, 6089, 1499, 6323, 3583, 5147, 3739, 5879, 2843, 11173, 4597, 7253, 4799, 14923, 3779, 14533, 6599, 7919, 7589
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
n=4, the progression starts: 4, 9, 14, 19, 24, 29, 34, 39, 44, 49,
54, 59, 64, 69, 74, 79, 84, 89, etc., with primes 19, 29, 59, 79, 89, etc.,
79 is the fourth prime: a(4)=79.
|
|
MATHEMATICA
|
Table[k = 1; Do[While[p = n + k*(n + 1); ! PrimeQ[p], k++]; k++, {n}]; p, {n, 100}] (* T. D. Noe, Oct 20 2011 *)
|
|
PROG
|
(Haskell)
a088733 n = last $ take n $
[q | q <- [2 * n + 1, 3 * n + 2 ..], a010051' q == 1]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|