OFFSET
1,15
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
phi(35) = 24 and the least natural number k such that 24 k + 1 is prime is k = 3; so a(35) = 3.
MATHEMATICA
f[n_] := Module[{i}, i = 0; While[ ! PrimeQ[i*EulerPhi[n] + 1], i++ ]; i]; Table[f[i], {i, 1, 150}]
PROG
(PARI)
A034693(n) = { my(k=1); while(!isprime(1+(k*n)), k++); k; };
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Jul 16 2002
STATUS
approved