User Portlet User Portlet

Discussions
I understand just i have a very big thing of code and only had a small part i wondered about. The do loop fixed the problem i was having with embedding while loops. Thank you though.
IntegerPartitions[n] displays all the partitions of n Select[IntegerPartitions[5], Max[Length /@ Split@ #] == 1 &] gives me partitions where each element is at least 1 apart (or distinct I am trying to find a way to get all the partitions where each...