OFFSET
1,1
EXAMPLE
MATHEMATICA
Count[Flatten[IntegerPartitions[#]], FactorInteger[#][[1, 1]]]&/@ Select[ Range[ 60], CompositeQ] (* Harvey P. Dale, Sep 08 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 22 2004
STATUS
approved