|
| |
|
|
A161507
|
|
First occurrence of n in A161506.
|
|
1
|
|
|
|
1, 2, 6, 12, 30, 60, 420, 840, 27720, 360360, 6126120, 2677114440, 2406725881560
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
func[n_] := Module[{d=Divisors[n], e=EulerPhi[n]}, Length[Select[d, #>e/2&]]]; k=1; Table[While[func[k]<n, k++ ]; k, {n, 11}]
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn,more
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
