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 A346238 #10 Aug 13 2021 22:48:44 %S A346238 2,0,0,9,0,24,0,15,16,48,0,8,0,66,64,31,0,32,0,4,88,114,0,50,64,138, %T A346238 64,7,0,-116,0,63,152,192,176,80,0,210,184,90,0,-138,0,-1,80,252,0,94, %U A346238 121,-6,256,-5,0,28,304,125,280,324,0,390,0,342,136,127,368,-276,0,-20,336,-386,0,126,0,426,24,-17,418,-360,0 %N A346238 Sum of A005187 and its Dirichlet inverse. %H A346238 Antti Karttunen, <a href="/A346238/b346238.txt">Table of n, a(n) for n = 1..16384</a> %F A346238 a(n) = A005187(n) + A346237(n). %o A346238 (PARI) %o A346238 up_to = 65537; %o A346238 DirInverseCorrect(v) = { my(u=vector(#v)); u[1] = (1/v[1]); for(n=2, #v, u[n] = (-u[1]*sumdiv(n, d, if(d<n, v[n/d]*u[d], 0)))); (u) }; \\ Compute the Dirichlet inverse of the sequence given in input vector v. %o A346238 A005187(n) = { my(s=n); while(n>>=1, s+=n); s; }; %o A346238 v346237 = DirInverseCorrect(vector(up_to,n,A005187(n))); %o A346238 A346237(n) = v346237[n]; %o A346238 A346238(n) = (A005187(n)+A346237(n)); %Y A346238 Cf. A005187, A346237. %Y A346238 Cf. also A300244. %K A346238 sign %O A346238 1,1 %A A346238 _Antti Karttunen_, Jul 13 2021