A120722 Absolute differences between A109441 and A100948.

0, 1, 2, 3, 4, 5, 6, 8, 10, 12, 13, 24, 75, 192, 305, 657, 1616, 2454, 4962, 13360, 20069, 40221, 120860, 181335, 362760, 1209464, 1814257, 3628656, 13305447, 19958232, 39916629, 159667010, 239500605, 479001404, 2075673390, 3113510176

Offset

1,3

Links

Table of n, a(n) for n=1..36.

Mathematica

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}]]];
b = Flatten[Table[{If[n < 3, 1, n!/3], If[n < 2, 1, n!/2], n!}, {n, 1, Length[a]}]];
aout = Union[Table[Abs[b[[n]] - a[[n]]], {n, 1, Length[a]}]]

Crossrefs

Cf. A100948.

Sequence in context: A086049 A328208 A173643 * A090811 A162002 A182764

Adjacent sequences: A120719 A120720 A120721 * A120723 A120724 A120725

Keyword

nonn,less

Author

Roger L. Bagula, Jun 23 2007

Status

approved