A066727 Least factor of n^Phi(n) -1.

0, 1, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 17, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 13, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3

Offset

1,3

Comments

n^Phi(n)-1 is never prime. This sequence is an outgrowth of Euler's generalization to Fermat's little theorem.

Links

Table of n, a(n) for n=1..100.

Mathematica

a = {}; Do[ a = Append[a, FactorInteger[ n^EulerPhi[n] - 1, FactorComplete -> False][[1, 1]]], {n, 1, 100}]; a

Crossrefs

Cf. A066699.

Sequence in context: A093476 A262597 A217607 * A076606 A056927 A094290

Adjacent sequences: A066724 A066725 A066726 * A066728 A066729 A066730

Keyword

nonn

Author

Robert G. Wilson v, Jan 15 2002

Status

approved