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.
MATHEMATICA
a = {}; Do[ a = Append[a, FactorInteger[ n^EulerPhi[n] - 1, FactorComplete -> False][[1, 1]]], {n, 1, 100}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 15 2002
STATUS
approved