OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Vaclav Kotesovec, Plot of a(n)/n for n = 1..1000000
FORMULA
Asymptotic to c*n with c=2.045...
MATHEMATICA
lst={}; Do[If[2*EulerPhi[n]>n, AppendTo[lst, n]], {n, 200}]; lst (* T. D. Noe *)
Select[ Range[130], 2EulerPhi[ # ] > # &] (* Robert G. Wilson v, Jan 16 2004 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Benoit Cloitre, Jan 16 2004
STATUS
approved