A140875 Triangle read by rows: T(n,m) = gcd(n,m+2) - 2*gcd(n,m+1) - gcd(n,m), with diagonal and subdiagonal removed.

-2, -4, 0, -4, -4, 0, -6, -2, -2, 2, -6, -2, -6, -6, 2, -8, -2, -2, -2, -2, 4, -8, -4, 0, -8, -4, -4, 4, -10, 0, -6, -4, 0, -6, -4, 6, -10, -4, -2, 0, -10, -8, -2, -4, 6, -12, -2, -2, -2, -2, -2, -2, -2, -2, 8, -12, -2, -4, -10, 0, -12, -4, -6, -8, -6, 8, -14, -2, -2, -2, -2, -2, -2, -2, -2, -2, -2, 10

Offset

1,1

Links

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

Example

{ -2},
{ -4,  0},
{ -4, -4,  0},
{ -6, -2, -2,  2},
{ -6, -2, -6, -6,   2},
{ -8, -2, -2, -2,  -2,  4},
{ -8, -4,  0, -8,  -4, -4,  4},
{-10,  0, -6, -4,   0, -6, -4,  6},
{-10, -4, -2,  0, -10, -8, -2, -4, 6}

Mathematica

G[n_, m_] := GCD[n, m]
D2[n_, m_] := If[m + 2 <= n, G[n, m + 2] - 2*G[n, m + 1] - G[n, m], {} ];
a = Table[Flatten[Table[D2[n, m], {m, 0, n}]], {n, 0, 10}]; Flatten[a]

Crossrefs

Cf. A109004.

Sequence in context: A134352 A152648 A327898 * A364315 A115368 A086932

Adjacent sequences: A140872 A140873 A140874 * A140876 A140877 A140878

Keyword

tabl,sign,easy,less

Author

Roger L. Bagula and Gary W. Adamson, Jul 21 2008

Extensions

Definition corrected and more terms from Georg Fischer, Jun 08 2023

Status

approved