This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A178536 #31 Jan 24 2021 13:28:10
%S A178536 1,-2,-1,0,-1,1,-1,0,0,1,-1,0,-1,1,1,0,-1,0,-1,0,1,1,-1,0,0,1,0,0,-1,
%T A178536 -1,-1,0,1,1,1,0,-1,1,1,0,-1,-1,-1,0,0,1,-1,0,0,0,1,0,-1,0,1,0,1,1,-1,
%U A178536 0,-1,1,0,0,1,-1,-1,0,1,-1,-1,0,-1,1,0,0,1,-1,-1,0,0,1,-1,0,1,1,1,0,-1,0,1,0
%N A178536 First column of A178535.
%C A178536 Except for the second term, a(n) seems to be equal to the Mobius function mu(n) = A008683(n) (verified for the first 53 terms).
%C A178536 a(n) = A008683(n) has now been verified for 3 <= n <= 800. - _R. J. Mathar_, Sep 14 2017
%H A178536 Antti Karttunen, <a href="/A178536/b178536.txt">Table of n, a(n) for n = 1..800</a> (prepared from the b-file of A008683 based on _R. J. Mathar_'s Sep 14 2017 comment)
%F A178536 a(n) = A178535(n,1).
%F A178536 a(n) = Sum_{k|n} A008683(n/k)*([k = 1] - [2|k]) (conjecture). - _Mats Granvik_, Jan 24 2021
%p A178536 A178536 := proc(n) A178535(n,1) ; end proc;
%p A178536 seq(A178536(n),n=1..80) ; # _R. J. Mathar_, Oct 28 2010
%t A178536 Clear[t, n, k, nn, a, A]; nn=92; a = Fibonacci[Range[nn] + 1]; t[n_, 1] = If[n >= 1, a[[n]], 0]; t[n_, k_] := t[n, k] = If[n >= k, Sum[t[n - i, k - 1], {i, 1, k - 1}] - Sum[t[n - i, k], {i, 1, k - 1}], 0]; MatrixForm[A = Table[Table[t[n, k], {k, 1, nn}], {n, 1, nn}]]; Inverse[A][[All, 1]] (* _Mats Granvik_, Sep 15 2017 *)
%Y A178536 Cf. A178535, A008683.
%Y A178536 Cf. also A181434, A181435.
%K A178536 sign
%O A178536 1,2
%A A178536 _Mats Granvik_, May 29 2010
%E A178536 More terms from _R. J. Mathar_, Oct 28 2010