OFFSET
1,1
COMMENTS
LINKS
Eric Chen, Table of n, a(n) for n = 1..120
Eric Chen, Table of n, a(n) for n = 1..300 status
MATHEMATICA
Table[k=1; while[!PrimeQ[Cyclotomic[n*k, 2]], k++]; k, {n, 150}]
PROG
(PARI) a(n) = {k = 1; while (!isprime(polcyclo(k*n, 2)), k++); k; } \\ Michel Marcus, Jan 18 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric Chen, Jan 18 2015
STATUS
approved