OFFSET
1,5
MAPLE
a := proc (n) local P, ct, j: with(combinat): P := partition(n): ct := 0: for j to numbpart(n) do if add(1/P[j][i], i = 1 .. nops(P[j])) < 1 then ct := ct+1 else end if end do: ct end proc: seq(a(n), n = 1 .. 60); # Emeric Deutsch, Dec 02 2009
MATHEMATICA
Table[Count[IntegerPartitions[n], _?(Total[1/#]<1&)], {n, 60}] (* Harvey P. Dale, Dec 14 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladeta Jovovic, Nov 19 2009
EXTENSIONS
Extended by Emeric Deutsch, Dec 02 2009
STATUS
approved