A283656 Numbers n such that gcd(phi(n), n-1) > lambda(n).
65, 91, 217, 273, 451, 481, 703, 793, 1281, 1729, 1891, 1921, 2465, 2701, 3201, 4033, 4097, 4681, 5833, 6643, 6697, 7105, 7161, 8321, 8401, 8911, 9073, 10649, 11041, 11476, 11521, 12403, 12545, 13051, 14689, 14701, 15841, 16385, 16401, 16471, 18361, 18705, 18721, 19684, 19951, 20801, 21953, 22177, 22681, 23001
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[10^4], GCD[EulerPhi[#], #-1] > CarmichaelLambda[#] &] (* Amiram Eldar, Aug 26 2019 *)
Comments