|
Search: id:A054741
|
|
|
| A054741 |
|
Totient(n) < cototient(n). |
|
+0
8
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
For powers of 2, the two function values are equal.
|
|
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 this_sequence A098902 A100367 A114989
Adjacent sequences: A054738 A054739 A054740 this_sequence A054742 A054743 A054744
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Apr 26 2000
|
|
|
Search completed in 0.002 seconds
|
