OFFSET
1,1
LINKS
Joerg Arndt, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_] := Block[{k = n - 1}, While[ !PrimeQ@k, k += n]; k]; Array[f, 63] (* Robert G. Wilson v, Jun 09 2009 *)
With[{prs=Prime[Range[100]]}, Table[SelectFirst[prs, Mod[#, n]==n-1&], {n, 70}]] (* Harvey P. Dale, Apr 26 2023 *)
PROG
(PARI)
N=10^8; default(primelimit, N);
a(n)=forprime(p=2, 10^7, if(p%n==n-1, return(p)));
/* Joerg Arndt, Apr 16 2013 */
(PARI) a(n)=my(j); while(!isprime(j++*n-1), ); j*n-1 \\ Charles R Greathouse IV, Apr 18 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved