A306338 Carmichael numbers k such that phi(k) divides (k-1)*lambda(k).
561, 1105, 1729, 2465, 6601, 15841, 41041, 46657, 52633, 75361, 115921, 334153, 340561, 658801, 670033, 2455921, 2704801, 4903921, 5049001, 6049681, 6840001, 8355841, 9439201, 9582145, 9613297, 10402561, 11119105, 11205601, 11972017, 14469841, 15888313, 16778881
Offset: 1
Keywords
Links
Programs
-
Mathematica
Select[Range[3, 100000, 2], !PrimeQ[#] && Divisible[#-1, c = CarmichaelLambda[#]] && Divisible[c*(#-1), EulerPhi[#]] &]
Comments