|
| |
|
|
A202855
|
|
Numbers n such that phi(n) - 1 divides n, where phi is Euler's totient function.
|
|
3
|
| |
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
a(10) > 10^11. - Donovan Johnson, Dec 29 2011
|
|
|
LINKS
|
Table of n, a(n) for n=1..9.
|
|
|
MATHEMATICA
|
Select[1 + Range[1000000], Divisible[#, EulerPhi[#] - 1] &]
|
|
|
PROG
|
(PARI) for(n=3, 1e7, if(n%(eulerphi(n)-1)==0, print1(n", "))) \\ Charles R Greathouse IV, Dec 26 2011
|
|
|
CROSSREFS
|
Cf. A000010.
Sequence in context: A176045 A137333 A006719 * A182857 A009287 A061080
Adjacent sequences: A202852 A202853 A202854 * A202856 A202857 A202858
|
|
|
KEYWORD
|
nonn,changed
|
|
|
AUTHOR
|
José María Grau Ribas, Dec 25 2011
|
|
|
EXTENSIONS
|
a(8) from Charles R Greathouse IV, Dec 27 2011
a(9) from Donovan Johnson, Dec 29 2011
|
|
|
STATUS
|
approved
|
| |
|
|
