A233568 a(n) is number in A114994 which c-equivalent to c-factorial of n (A047778).
1, 5, 23, 151, 1199, 9567, 76543, 1125119, 17978879, 287659519, 4602550271, 73629609983, 1178073743359, 18849179828223, 301586877251583, 9308786131992575, 297840749160955903, 9530903606625042431, 304988913945966280703, 9759645240406772285439
Offset: 1
Keywords
Examples
A047778(4)=220 which has parts (1)(10)(1)(1)(100)~(100)(10)(1)(1)(1) which is 151 in decimal. So, a(4)=151.
Programs
-
Mathematica
bitPatt[n_]:=bitPatt[n]=Split[IntegerDigits[n,2],#1>#2||#2==0&];Map[FromDigits[Flatten[Reverse[Sort[bitPatt[FromDigits[Flatten[Map[IntegerDigits[#,2]&,Range[#]]],2]]]]],2]&,Range[20]] (* Peter J. C. Moses, Dec 14 2013 *)
Comments