Skip to main content
Mathematica

Return to Answer

Post Undeleted by Michael E2
added 142 characters in body
Source Link
Michael E2
Michael E2
  • 258.7k
  • 21
  • 370
  • 830

The OP professed an interest to "make a more efficient program to compute the strict partitions," but as yet no one has addressed timing.

Block[{n = 61}, Join @@@ KeyValueMap[#1*(#*2^Range[Length[#] - 1, 0, -1] &@ IntegerDigits[#2, 2]) &] /@ Counts /@ IntegerPartitions[n, Infinity, Range[1, n, 2]] /. 0 -> Nothing (* zero counts for nothing *) ] // Length // AbsoluteTiming (* {0.15744, 12076} *) 
Block[{n = 61}, Join @@@ KeyValueMap[#1*(#*2^Range[Length[#] - 1, 0, -1] &@ IntegerDigits[#2, 2]) &] /@ Counts /@ IntegerPartitions[n, Infinity, Range[1, n, 2]] /. 0 -> Nothing (* zero counts for nothing *) ] // Length // AbsoluteTiming (* {0.15744, 12076} *)

The OP professed an interest to "make a more efficient program to compute the strict partitions," but as yet no one has addressed timing.

Block[{n = 61}, Join @@@ KeyValueMap[#1*(#*2^Range[Length[#] - 1, 0, -1] &@ IntegerDigits[#2, 2]) &] /@ Counts /@ IntegerPartitions[n, Infinity, Range[1, n, 2]] /. 0 -> Nothing (* zero counts for nothing *) ] // Length // AbsoluteTiming (* {0.15744, 12076} *)
Post Deleted by Michael E2
Source Link
Michael E2
Michael E2
  • 258.7k
  • 21
  • 370
  • 830

Block[{n = 61}, Join @@@ KeyValueMap[#1*(#*2^Range[Length[#] - 1, 0, -1] &@ IntegerDigits[#2, 2]) &] /@ Counts /@ IntegerPartitions[n, Infinity, Range[1, n, 2]] /. 0 -> Nothing (* zero counts for nothing *) ] // Length // AbsoluteTiming (* {0.15744, 12076} *)