Tcl: check if number is pentagonal.