|
Search: id:A062804
|
|
|
| A062804 |
|
Phi[n] - Floor[n^(1/3)]*Tau[n] = 0. |
|
+0
1
|
|
| 1, 3, 9, 15, 56, 102, 198, 228, 234, 280, 312, 528, 672, 756, 1050, 1320
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
See comment to A062516
|
|
EXAMPLE
|
For m=1320, Phi[m]-k[m]*Tau[m]=320-10*32=0. 16 terms below 100000 [and most likely at all]. Phi[n]-Floor[n^(1/3)]*Tau[n] becomes positive for large n. At n=2520 seems last time negative.
|
|
MATHEMATICA
|
Flatten[Position[Table[EulerPhi[w]-Floor[w^(1/3)//N]*DivisorSigma[0, w], {w, 1, 100000}], 0]]
|
|
CROSSREFS
|
A062516, A000005, A000010.
Sequence in context: A053624 A119239 A120403 this_sequence A110960 A050869 A038547
Adjacent sequences: A062801 A062802 A062803 this_sequence A062805 A062806 A062807
|
|
KEYWORD
|
fini,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 20 2001
|
|
|
Search completed in 0.002 seconds
|
