A199105 Numbers k such that lambda(k) < A011773(k) < phi(k), where lambda is the Carmichael reduced totient function and phi the Euler totient function.

24, 48, 56, 72, 80, 88, 96, 112, 144, 152, 160, 168, 176, 184, 192, 208, 216, 224, 240, 248, 264, 288, 304, 320, 336, 344, 352, 368, 376, 384, 392, 400, 416, 432, 448, 456, 464, 472, 480, 496, 504, 528, 536, 552, 560, 568, 576, 592, 608, 616, 624

Offset: 1

Author

José María Grau Ribas, Jan 31 2012

Keywords

• nonn

Comments

A002322(k) divides A011773(k) and A011773(k) divides A000010(k).

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000010, A002322, A011773.

Programs

Mathematica

A011773[p_,s_] := (p-1)*p^(s-1); A011773[n_] := {aux=1;Do[aux=LCM[aux,A011773[FactorInteger[n][[i,1]], FactorInteger[n][[i,2]]]], {i,Length[FactorInteger[n]]}]; aux}[[1]]; Select[Range[1000], CarmichaelLambda[#] < A011773[#] < EulerPhi[#]&]