OFFSET
1,1
LINKS
R. J. Mathar, Table of n, a(n) for n = 1..7771
MATHEMATICA
Reap[ For[ n = 1, n <= 4061, n++, If[ EulerPhi[n] / CarmichaelLambda[n] == 10, Sow[n]]]][[2, 1]] (* Jean-François Alcover, Mar 26 2013 *)
Select[Range[4100], EulerPhi[#]/CarmichaelLambda[#]==10&] (* Harvey P. Dale, Dec 22 2022 *)
PROG
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Jun 17 2001
EXTENSIONS
More terms from Randall L Rathbun, Jan 12 2002
STATUS
approved