|
| |
|
|
A054741
|
|
Totient(n) < cototient(n).
|
|
10
| |
|
|
6, 10, 12, 14, 18, 20, 22, 24, 26, 28, 30, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 105, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, 130, 132, 134, 136
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| For powers of 2, the two function values are equal.
Also numbers n such that the arithmetic mean of distinct prime factors of n is not an integer. [From Ctibor O. Zizka (c.zizka(AT)email.cz), Oct 06 2008]
|
|
|
FORMULA
| n such that A000010(n) < A051953(n)
a(n) seems to be asymptotic to c*n with c=1.9566...... - Benoit Cloitre (benoit7848c(AT)orange.fr), Oct 20 2002
|
|
|
EXAMPLE
| For n = 20, EulerPhi[20] = 8, Cototient[20] = 12, 8 = Phi(20) < 20-Phi(20) = 12; for n = 21, the opposite holds: Phi = 12, 21-Phi = 8.
|
|
|
MATHEMATICA
| Select[ Range[300], 2EulerPhi[ # ] < # &] (from Robert G. Wilson v Jan 10 2004)
|
|
|
CROSSREFS
| Cf. A000010, A051953, A005408, A036798, A089684. Complement: A115405.
Sequence in context: A056868 A069209 A060702 * A177712 A176552 A176587
Adjacent sequences: A054738 A054739 A054740 * A054742 A054743 A054744
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Apr 26 2000
|
| |
|
|
