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 A114006 #21 Feb 23 2020 16:27:58
%S A114006 1,-1,-1,1,-1,3,-1,-1,1,3,-1,-5,-1,3,3,1,-1,-5,-1,-5,3,3,-1,7,1,3,-1,
%T A114006 -5,-1,-13,-1,-1,3,3,3,13,-1,3,3,7,-1,-13,-1,-5,-5,3,-1,-9,1,-5,3,-5,
%U A114006 -1,7,3,7,3,3,-1,31,-1,3,-5,1,3,-13,-1,-5,3,-13,-1,-25,-1,3,-5,-5,3,-13,-1,-9,1,3,-1,31,3,3,3,7,-1,31,3,-5,3,3,3,11
%N A114006 Row sums of number triangle A114004.
%C A114006 A signed version of A050328.
%H A114006 Antti Karttunen, <a href="/A114006/b114006.txt">Table of n, a(n) for n = 1..10000</a>
%F A114006 a(n) = A008836(n) * A050328(n). - _Antti Karttunen_, May 27 2017
%F A114006 a(1) = 1; a(n) = Sum_{d|n, d < n} mu(n/d) * a(d). - _Ilya Gutkovskiy_, Feb 23 2020
%t A114006 a050328[n_]:=If[n==1, n, Sum[If[(d<n && SquareFreeQ[n/d]), a050328[d], 0], {d, Divisors[n]}]]; a[n_]:=(-1)^PrimeOmega[n]*a050328[n]; Table[a[n], {n, 100}] (* _Indranil Ghosh_, May 27 2017 *)
%o A114006 (PARI)
%o A114006 A050328(n) = if(1==n,n,sumdiv(n,d,if((d<n && issquarefree(n/d)),A050328(d),0)));
%o A114006 A114006(n) = ((-1)^bigomega(n) * A050328(n)); \\ _Antti Karttunen_, May 27 2017
%Y A114006 Cf. A008836, A008966, A050328, A114004, A114005.
%K A114006 easy,sign
%O A114006 1,6
%A A114006 _Paul Barry_, Nov 12 2005
%E A114006 More terms, incorrect formulas replaced by a correct one - _Antti Karttunen_, May 27 2017