OFFSET
0,3
MATHEMATICA
Join[{1, 1}, Table[Count[Times@@@IntegerPartitions[n], _?(IntegerQ[ Log[ n, #]]&)], {n, 2, 70}]] (* Harvey P. Dale, Oct 12 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Naohiro Nomoto, Jan 29 2002
STATUS
approved