OFFSET
1,2
LINKS
H. v. Eitzen, Table of n, a(n) for n = 1..31
MATHEMATICA
a[n_]:=Min[EulerPhi[Range[10^(n-1), 10^n-1]]]; Do[Print[a[n]], {n, 10}]
PROG
(PARI) a(n)=if(n<3, return(3*n-2)); my(t=eulerphi(10^(n-1))); forstep(k=(10^n\300+1)*30, 10^n, 30, if(eulerphi(k)<t, t=eulerphi(k))); t \\ Charles R Greathouse IV, Feb 21 2013
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Farideh Firoozbakht, Nov 23 2008
EXTENSIONS
More terms from Hagen von Eitzen, Jun 05 2009
Offsets in b-file corrected by N. J. A. Sloane, Aug 31 2009
STATUS
approved