OFFSET
1,2
LINKS
Robert Gerbicz, Table of n, a(n) for n = 1..43
EXAMPLE
a(2) = #{2, 3/2+1/2, 1+1, 1+1/2+1/2, 1/2+1/2+1/2+1/2} = 5.
MATHEMATICA
modifiedFarey[n_] := Union@ Flatten@ Table[a/b, {b, n}, {a, b*n}]; t[n_, k_] := Length@ IntegerPartitions[n, {k}, modifiedFarey@ n]; Plus @@@ Table[t[n, k], {n, 7, 7}, {k, n*(Plus @@ EulerPhi@ Range@n)}] (* Robert G. Wilson v, Aug 30 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 17 2009
EXTENSIONS
a(7) from Robert G. Wilson v, Aug 30 2010
a(8)-a(16) from Robert Gerbicz, Nov 19 2010
STATUS
approved