A161507 First occurrence of n in A161506.

1, 2, 6, 12, 30, 60, 420, 840, 27720, 360360, 6126120, 2677114440, 2406725881560

Offset

1,2

Links

Table of n, a(n) for n=1..13.

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

Sequence in context: A129912 A283477 A182863 * A335711 A032177 A095349

Adjacent sequences: A161504 A161505 A161506 * A161508 A161509 A161510

Keyword

nonn,more

Author

T. D. Noe, Jun 17 2009

Status

approved