|
|
|
|
2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 20, 21, 24, 28, 30, 32, 33, 35, 36, 39, 40, 42, 44, 45, 48, 51, 52, 55, 56, 57, 60, 63, 91, 117, 126, 133, 171, 182, 189, 217, 234, 247, 252, 259, 266, 273, 275, 279, 341, 451, 550, 671, 682, 775, 781, 825, 902
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The asymptotic density of this sequence is 0 (Erdős et al., 1991).
Since log(log(k))^2 > 1 for k >= 16, the only terms of A033948 (numbers k such that phi(k) = lambda(k)) in this sequence are those below 16.
|
|
REFERENCES
|
József Sándor and Borislav Crstici, Handbook of Number theory II, Kluwer Academic Publishers, 2004, Chapter 3, p. 194.
|
|
LINKS
|
|
|
MATHEMATICA
|
p[n_] := FactorInteger[n][[-1, 1]]; q[n_] := p[EulerPhi[n]/CarmichaelLambda[n]] / Log[Log[n]]^2 > 1; Select[Range[1000], q]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|