perl -E "map{ $sigma += $ARGV[0]**$_ }0..$ARGV[1]-1; say 'true' if $ARGV[0]**$ARGV[1] == 1+( $sigma * ($ARGV[0]-1))"