|
Search: id:A070033
|
|
|
| A070033 |
|
Least number m such that integer part of sigma(m)/phi(m) equals n. |
|
+0
1
|
|
| 1, 3, 2, 10, 20, 6, 12, 42, 30, 60, 120, 210, 630, 420, 840, 2520, 10080, 9240, 27720, 55440, 120120, 360360, 720720, 2162160, 6126120, 12252240, 36756720, 116396280, 232792560
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
a(n)=Min{x : Floor[A000203(x)/A000010(x)]=n}
|
|
MATHEMATICA
|
t=Table[0, {100}]; Do[c=Floor[DivisorSigma[1, n]/EulerPhi[n]]; If[c<101&&t[[c]]== 0, t[[c]]=n], {n, 1, 100000}]; t
|
|
CROSSREFS
|
Cf. A000203, A000010, A070032.
Sequence in context: A038519 A082219 A034461 this_sequence A107334 A096073 A088302
Adjacent sequences: A070030 A070031 A070032 this_sequence A070034 A070035 A070036
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Apr 15 2002
|
|
EXTENSIONS
|
Two more terms from Labos E. (labos(AT)ana.sote.hu), May 18 2004
|
|
|
Search completed in 0.002 seconds
|
