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,1

Comments

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

Links

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

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[#]&]

Crossrefs

Cf. A000010, A002322, A011773.

Sequence in context: A335143 A105651 A105779 * A329884 A074698 A334759

Adjacent sequences: A199102 A199103 A199104 * A199106 A199107 A199108

Keyword

nonn

Author

José María Grau Ribas, Jan 31 2012

Status

approved