login
Setwise difference of A060132 and A059590. Those terms of A060132 which are not representable as a sum of distinct factorials.
3

%I #5 May 01 2014 02:49:07

%S 16,17,40,41,60,61,62,63,136,137,160,161,180,181,182,183,288,289,290,

%T 291,294,295,296,297,304,305,316,317,450,451,452,453,736,737,760,761,

%U 780,781,782,783,856,857,880,881,900,901,902,903,1008,1009,1010,1011

%N Setwise difference of A060132 and A059590. Those terms of A060132 which are not representable as a sum of distinct factorials.

%C 16 is included, as 16 = 220 in factorial base and by following the algorithm PermRevLexUnrankAMSD in A055089 we get the composition (2 3)(3 4) (1 2)(2 3) which, although consisting of different transpositions, is equal to the composition (4 2)(3 1) = 3412 produced by algorithm PermUnrank3R at A060117.

%p list_diff := proc(a,b) local c,e; c := []; for e in a do if(not member(e,b)) then c := [op(c),e]; fi; od; RETURN(c); end;

%Y A064637 := list_diff(A060132, A059590),

%Y Cf. A064477.

%K nonn

%O 0,1

%A _Antti Karttunen_, Oct 02 2001