OFFSET
1,3
MATHEMATICA
c = Select[Range[120], # != 1 && ! PrimeQ[ # ] &]; Table[Length[Select[Take[c, n], GCD[ #, n] == 1 &]], {n, Length[c]}] (* Ray Chandler, Feb 17 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Feb 11 2007
EXTENSIONS
Extended by Ray Chandler, Feb 17 2007
STATUS
approved