OFFSET
1,1
LINKS
Robert Price, Table of n, a(n) for n = 1..56
EXAMPLE
18^Phi(18)-1 = 18^6-1 = 34012223 = 7^3 * 17 * 19 * 307. Therefore since 7, the fourth prime, is the least prime in the factorization, a(4) = 18.
MATHEMATICA
a = Table[0, {53} ]; Do[b = 1; While[ PowerMod[n, EulerPhi[n], Prime[b]] != 1, b++ ]; If[ a[[b]] == 0, a[[b]] = n], {n, 3, 10^6} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 15 2002
EXTENSIONS
a(35)-a(36) from Robert Price, Nov 06 2023
STATUS
approved