login
Moebius function (A008683) applied to each term in the triangle A055096.
2

%I #6 Mar 31 2015 03:55:14

%S -1,1,-1,-1,0,0,1,-1,1,-1,-1,0,0,0,-1,0,-1,1,1,1,1,1,0,-1,0,-1,0,-1,1,

%T 1,0,-1,1,0,-1,1,-1,0,-1,0,0,0,-1,0,-1,1,0,-1,-1,1,-1,-1,1,1,1,1,0,0,

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

%N Moebius function (A008683) applied to each term in the triangle A055096.

%p sum2distinct_squares_array := (n) -> (((n-((trinv(n-1)*(trinv(n-1)-1))/2))^2)+((trinv(n-1)+1)^2));

%p with(numtheory,mobius); a(n) = mobius(sum2distinct_squares_array(n))

%Y Cf. A055097.

%K sign,tabl

%O 1,1

%A _Antti Karttunen_, Apr 04 2000