|
|
A089727
|
|
Largest prime of the form n*k+1, k <= n.
|
|
3
|
|
|
2, 5, 7, 17, 11, 37, 43, 41, 73, 101, 89, 109, 157, 197, 211, 257, 239, 307, 229, 401, 421, 463, 461, 577, 601, 677, 541, 757, 523, 811, 683, 929, 991, 1123, 1051, 1297, 1259, 1217, 1483, 1601, 1559, 1723, 1721, 1453, 1801, 1979, 2069, 2161, 1667, 2351, 2551
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(5)=11 because 5*2+1=11 is prime, whereas 5*5+1=26, 5*4+1=21 and 5*3+1=16 are composite.
|
|
MATHEMATICA
|
f[n_] := Block[{k = n}, While[ !PrimeQ[k*n + 1], k-- ]; k*n + 1]; Array[f, 51] (* Robert G. Wilson v, Dec 17 2009 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|