Return to Answer

Commonmark migration

edited Jun 17, 2020 at 9:04

edited Jun 17, 2020 at 9:04

#Mathematica, 59 bytes

Mathematica, 59 bytes

!Select[IntegerPartitions@#,{6,9,20}~SubsetQ~#&]=={}&&#!=0&

#Mathematica, 59 bytes

!Select[IntegerPartitions@#,{6,9,20}~SubsetQ~#&]=={}&&#!=0&

!Select[IntegerPartitions@#,{6,9,20}~SubsetQ~#&]=={}&&#!=0&

answered Jul 16, 2017 at 20:31

answered Jul 16, 2017 at 20:31

#Mathematica, 59 bytes

!Select[IntegerPartitions@#,{6,9,20}~SubsetQ~#&]=={}&&#!=0&