cp's OEIS Frontend

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.

A123708 a(n) = sum of unsigned elements in row n of triangle A123706.

This page as a plain text file.
%I A123708 #6 Oct 26 2017 23:08:31
%S A123708 1,3,3,4,3,5,3,4,4,7,3,8,3,7,7,4,3,8,3,8,7,7,3,8,4,7,4,8,3,13,3,4,7,7,
%T A123708 7,8,3,7,7,8,3,13,3,8,8,7,3,8,4,8,7,8,3,8,7,8,7,7,3,16,3,7,8,4,7,13,3,
%U A123708 8,7,15,3,8,3,7,8,8,7,13,3,8,4,7,3,16,7,7,7,8,3,16,7,8,7,7,7,8,3,8,8,8,3,13
%N A123708 a(n) = sum of unsigned elements in row n of triangle A123706.
%C A123708 Triangle A123706 is the matrix inverse of triangle A010766, where A010766(n,k) = [n/k].
%H A123708 G. C. Greubel, <a href="/A123708/b123708.txt">Table of n, a(n) for n = 1..1000</a>
%t A123708 t[n_, k_] := If[Divisible[n, k], MoebiusMu[n/k], 0] - If[Divisible[n, k + 1], MoebiusMu[n/(k + 1)], 0]; Table[Sum[Abs[t[n, k]], {k, 1, n}], {n, 1, 50}] (* _G. C. Greubel_, Oct 26 2017 *)
%o A123708 (PARI) {a(n)=local(M=matrix(n,n,r,c,if(r>=c,floor(r/c)))^-1);sum(k=1,n,abs(M[n,k]))}
%Y A123708 Cf. A123706, A123707, A123709; A010766.
%K A123708 nonn
%O A123708 1,2
%A A123708 _Paul D. Hanna_, Oct 09 2006