A056226 - OEIS

%I #7 Dec 23 2018 16:12:44

%S 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,

%T 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,

%U 1,1,1,2,1,-1,1,1,0,0,1,2,1,0,0,1,1,1,1,0,1,1,1

%N 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}.

%H Antti Karttunen, <a href="/A056226/b056226.txt">Table of n, a(n) for n = 1..65537</a>

%F a(1) = 0; for n > 1, a(n) = A008683(n)^2 - (A008683(n-1)*A008683(n+1)). - _Antti Karttunen_, Dec 23 2018

%o (PARI) A056226(n) = if(n<2,0,moebius(n)^2 - (moebius(n-1)*moebius(n+1))); \\ _Antti Karttunen_, Dec 23 2018

%Y Cf. A008683.

%K sign

%O 1,2

%A _N. J. A. Sloane_, Aug 06 2000

%E Offset corrected by _Antti Karttunen_, Dec 23 2018