This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A120722 #6 Aug 15 2023 07:50:32
%S A120722 0,1,2,3,4,5,6,8,10,12,13,24,75,192,305,657,1616,2454,4962,13360,
%T A120722 20069,40221,120860,181335,362760,1209464,1814257,3628656,13305447,
%U A120722 19958232,39916629,159667010,239500605,479001404,2075673390,3113510176
%N A120722 Absolute differences between A109441 and A100948.
%t A120722 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 A120722 b = Flatten[Table[{If[n < 3, 1, n!/3], If[n < 2, 1, n!/2], n!}, {n, 1, Length[a]}]];
%t A120722 aout = Union[Table[Abs[b[[n]] - a[[n]]], {n, 1, Length[a]}]]
%Y A120722 Cf. A100948.
%K A120722 nonn,less
%O A120722 1,3
%A A120722 _Roger L. Bagula_, Jun 23 2007