|
Search: id:A066732
|
|
|
| A066732 |
|
Least k such that the least factor of k^Phi(k) -1 is the n-th prime. |
|
+0
1
|
|
| 3, 4, 6, 18, 150, 60, 30, 22440, 120360, 44880, 5610, 11730, 8160, 473280, 277440, 131070, 548760, 920040, 750720, 440130, 329970, 27030, 5689560, 522240, 1020, 3028890, 2639760, 6866130, 251430, 134130, 7481190, 2390880, 2664240, 9926130
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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
|
Cf. A066699.
Sequence in context: A068573 A138577 A136242 this_sequence A038520 A081888 A019209
Adjacent sequences: A066729 A066730 A066731 this_sequence A066733 A066734 A066735
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 15 2002
|
|
|
Search completed in 0.002 seconds
|
