open Printf let rec(@)n a=n<2&printf" "=()||n/a*a=n&(printf" %d"a;n/a@a)||n@a+1;;List.map(fun n->printf"%d:"n;n@2)[0;12;20;40;60;100;120;140;143;5141;5144;5146;5156;5164;25564;61151;61163;61557;61564;62012;62412;62555;63412;64542;64544;66012;66145;66157;67151;67155;67165;67542;67546;67550;67557;70155;70157;71012;71141;71160;71163;71412;71557;71571;72012;72157;72412;73012;73145;73162;74165]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).