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 A373147 #8 May 27 2024 13:23:11
%S A373147 0,1,0,1,2,1,0,2,0,1,0,1,9,0,0,1,1,1,0,10,13,1,4,10,15,3,0,1,4,1,0,14,
%T A373147 19,12,0,1,21,16,5,1,8,1,48,9,25,1,4,14,6,20,56,1,4,16,26,22,31,1,2,1,
%U A373147 33,17,0,18,61,1,72,26,22,1,2,1,39,13,80,18,71,1,6,4,43,1,22,22,45,32,140,1,2,20,96,34,49
%N A373147 a(n) = A003415(n) mod A276085(n), where A003415 is the arithmetic derivative and A276085 is the primorial base log-function.
%H A373147 Antti Karttunen, <a href="/A373147/b373147.txt">Table of n, a(n) for n = 2..65537</a>
%o A373147 (PARI)
%o A373147 A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A373147 A002110(n) = prod(i=1,n,prime(i));
%o A373147 A276085(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*A002110(primepi(f[k, 1])-1)); };
%o A373147 A373147(n) = (A003415(n)%A276085(n));
%Y A373147 Cf. A002110, A003415, A276085.
%Y A373147 Cf. also A373145, A373148, and also A369971.
%K A373147 nonn
%O A373147 2,5
%A A373147 _Antti Karttunen_, May 27 2024