A120722 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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: A173643 A377209 A377210 * A090811 A162002 A182764

Adjacent sequences: A120719 A120720 A120721 * A120723 A120724 A120725

KEYWORD

nonn,less

AUTHOR

Roger L. Bagula, Jun 23 2007

STATUS

approved