draft of count perfect numbers
update