%I #6 Aug 15 2023 07:50:32

%S 0,1,2,3,4,5,6,8,10,12,13,24,75,192,305,657,1616,2454,4962,13360,

%T 20069,40221,120860,181335,362760,1209464,1814257,3628656,13305447,

%U 19958232,39916629,159667010,239500605,479001404,2075673390,3113510176

%N Absolute differences between A109441 and A100948.

%t a = Union[Flatten[Table[{(n + 1)^2 - 1, (2*n + 1)*(2*n + 1 - 1)/2, (2*n)^2, (2*n)*(2*n - 1)/2}, {n, 0, 15}]]];

%t b = Flatten[Table[{If[n < 3, 1, n!/3], If[n < 2, 1, n!/2], n!}, {n, 1, Length[a]}]];

%t aout = Union[Table[Abs[b[[n]] - a[[n]]], {n, 1, Length[a]}]]

%Y Cf. A100948.

%K nonn,less

%O 1,3

%A _Roger L. Bagula_, Jun 23 2007