A284406 Odd numbers k such that lambda(k) < phi(k) and gcd(lambda(k), k-1) = gcd(phi(k), k-1).
15, 35, 39, 45, 51, 55, 63, 75, 85, 87, 95, 99, 111, 115, 117, 119, 123, 135, 143, 147, 153, 155, 159, 165, 171, 175, 183, 187, 195, 203, 205, 207, 215, 219, 221, 231, 235, 245, 247, 255, 259, 261, 267, 275, 279, 285, 287, 291, 295, 299, 303, 315, 319, 323, 325, 327, 333, 335, 339, 351
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..439 from Indranil Ghosh)
Programs
-
Mathematica
Select[Range[1, 351, 2], Function[k, And[#1 < #2, GCD[#1, k - 1] == GCD[#2, k - 1]] & @@ {CarmichaelLambda@ k, EulerPhi@ k}]] (* Michael De Vlieger, Mar 26 2017 *)
Comments