%I #5 Aug 03 2014 14:01:25
%S 1,4,6,7,8,10,11,12,13,15,16,18,19,20,21,22,23,24,25,28,29,30,31,32,
%T 34,35,36,37,38,39,40,42,43,45,46,47,48,49,52,54,55,56,57,58,59,60,61,
%U 62,63,64,66,67,68,70,71,72,73,74,75,76,78,79,82,83,85,86,88
%N Complement of self-generating sequence A005244.
%C A005244(n) = a self-generating sequence: start with 2, take all products of any 2 previous elements, subtract 1 and adjoin them to the sequence.
%t f[s_, mx_] := Union[s, Select[Times @@@ Subsets[s, {2}] - 1, # <= mx &]]; mx = 99; Complement[Range[mx], FixedPoint[f[#, mx] &, {2, 3}]] (* _T. D. Noe_, Mar 30 2011 *)
%K nonn
%O 1,2
%A _Jaroslav Krizek_, Dec 08 2009