A056226 Image of Moebius function (A008683) under "little Hankel" transform that sends [c_0, c_1, ...] to [d_0, d_1, ...] where d_n = c_n^2 - c_{n+1}*c_{n-1}.

0, 2, 1, -1, 1, 0, 1, 0, 0, 1, 1, -1, 1, 2, 1, 1, 1, -1, 1, 1, 1, 2, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 2, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, -1, 1, 2, 1, -1, 1, 1, 0, 0, 1, 2, 1, 1, 1, 2, 1, -1, 1, 1, 0, 0, 1, 2, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Formula

a(1) = 0; for n > 1, a(n) = A008683(n)^2 - (A008683(n-1)*A008683(n+1)). - Antti Karttunen, Dec 23 2018

Prog

(PARI) A056226(n) = if(n<2, 0, moebius(n)^2 - (moebius(n-1)*moebius(n+1))); \\ Antti Karttunen, Dec 23 2018

Crossrefs

Cf. A008683.

Sequence in context: A072617 A348541 A210825 * A044935 A321920 A106276

Adjacent sequences: A056223 A056224 A056225 * A056227 A056228 A056229

Keyword

sign

Author

N. J. A. Sloane, Aug 06 2000

Extensions

Offset corrected by Antti Karttunen, Dec 23 2018

Status

approved