A203966 Numbers n such that phi(n) divides n+1, where phi is Euler's totient function (A000010).
1, 2, 3, 15, 255, 65535, 83623935, 4294967295, 6992962672132095
Offset: 1
Examples
15 is in the sequence because phi(15) = 8, and 8 divides 16 = 15 + 1 evenly.
Links
- D. H. Lehmer, On Euler's totient function, Bulletin of the American Mathematical Society, 38 (1932), 745-751.
Programs
-
Mathematica
Select[Range[100000], Divisible[#+1, EulerPhi[#]]&]
Extensions
a(8) from Donovan Johnson, Jan 13 2012
a(9) confirmed by Max Alekseyev, Jan 30 2022
Comments