read n k
eval dc -e`factor $n|sed 's!:!z!;s! \w\+!$[y=++a[&],y+k]*$y/!g'`O9^7+%p