OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
t={1}; Do[AppendTo[t, Length[Select[Range[n-1], CoprimeQ[t[[#]], n-#] &]]], {n, 2, 100}]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 21 2009
EXTENSIONS
More terms from Sean A. Irvine, Nov 29 2010
STATUS
approved