OFFSET
1,2
REFERENCES
Felice Russo, A set of new Smarandache functions, sequences and conjectures in number theory, American Research Press 2000
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
a[n_] := (m = 1; While[! IntegerQ[Sum[EulerPhi[k], {k, 1, m}]/n], m++]; m); a /@ Range[60] (* Jean-François Alcover, Jul 20 2011 *)
Module[{nn=60, ep=Accumulate[EulerPhi[Range[200]]]}, Table[Position[ep, _?(Divisible[ #, n]&), 1, 1], {n, nn}]]//Flatten (* Harvey P. Dale, Aug 03 2021 *)
PROG
(PARI) a(n)=my(m=1, s=Mod(1, n)); while(s, s+=eulerphi(m++)); m \\ Charles R Greathouse IV, Feb 24 2012
CROSSREFS
KEYWORD
easy,nice,nonn
AUTHOR
Felice Russo, Feb 25 2000
STATUS
approved