OFFSET
1,1
COMMENTS
Nonprime k such that the multiplicative group modulo k is cyclic. Nonprime terms of A033948 (omitting the initial term 1). - Joerg Arndt, Aug 07 2011
a(n) has a primitive root for any n. - Arkadiusz Wesolowski, Sep 06 2012 [See, e.g., the Niven et al. reference. - Wolfdieter Lang, Jan 18 2017]
REFERENCES
Ivan Niven, Herbert S. Zuckerman and Hugh L. Montgomery, An Introduction to the Theory Of Numbers, Fifth Edition, John Wiley and Sons, Inc., NY 1991, Theorem 2.41, p. 104.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
Joerg Arndt, Matters Computational (The Fxtbook), relation (39.7-13) on page 779.
MATHEMATICA
lim = 500; t = {4}; Do[p = Prime[n]; k = 1; While[p^k <= lim, If[k > 1, AppendTo[t, p^k]]; If[2*p^k <= lim, AppendTo[t, 2*p^k]]; k++], {n, 2, PrimePi[lim/2]}]; Sort[t]; (* T. D. Noe, Sep 06 2012 *)
PROG
(PARI) for (n=2, 555, if ( isprime(n), next() ); if ( 1 == #(znstar(n)[3]), print1(n, ", ") ); ); /* Joerg Arndt, Aug 07 2011 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Warren Breslow, Jul 21 2011
EXTENSIONS
More terms from Joerg Arndt, Aug 07 2011
Name corrected and augmented by Wolfdieter Lang, Jan 18 2017
STATUS
approved