OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..1000 (first 568 terms from Diana L. Mecum)
MATHEMATICA
Fold[{Append[#1, #3], Append[#2, Total@ #3]} & @@ {First@ #1, Last@ #1, Map[Function[m, Count[Last@ #1, k_ /; CoprimeQ[m, k]]], Range@ #2]} &, {{{1}}, {1}}, Range[2, 52]] // Last (* Michael De Vlieger, Sep 29 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 30 2006
EXTENSIONS
a(7) and beyond from Diana L. Mecum, Aug 09 2008
STATUS
approved