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 A373148 #7 May 27 2024 13:23:26
%S A373148 0,0,2,0,3,0,3,4,0,0,4,0,4,0,4,0,5,0,8,2,3,0,5,2,1,6,0,0,9,0,5,2,11,0,
%T A373148 6,0,1,8,9,0,33,0,20,10,16,0,6,4,13,12,16,0,7,8,33,2,7,0,10,0,1,34,6,
%U A373148 12,30,0,8,2,37,0,7,0,1,14,32,6,41,0,10,8,31,0,34,6,16,8,73,0,11,0,44,2,36,12,7,0,61
%N A373148 a(n) = A276085(n) mod A003415(n), where A003415 is the arithmetic derivative and A276085 is the primorial base log-function.
%H A373148 Antti Karttunen, <a href="/A373148/b373148.txt">Table of n, a(n) for n = 2..65537</a>
%o A373148 (PARI)
%o A373148 A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A373148 A002110(n) = prod(i=1,n,prime(i));
%o A373148 A276085(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*A002110(primepi(f[k, 1])-1)); };
%o A373148 A373148(n) = (A276085(n)%A003415(n));
%Y A373148 Cf. A002110, A003415, A276085.
%Y A373148 Cf. also A373145, A373147, and also A328382.
%K A373148 nonn
%O A373148 2,3
%A A373148 _Antti Karttunen_, May 27 2024