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 A099301 #6 May 28 2017 09:14:06 %S A099301 0,1,1,1,1,4,1,4,1,4,1,5,1,4,4,1,1,5,1,5,4,4,1,12,1,4,4,5,1,12,1,5,4, %T A099301 4,4,6,1,4,4,12,1,12,1,5,5,4,1,7,1,5,4,5,1,12,4,12,4,4,1,16,1,4,5,1,4, %U A099301 12,1,5,4,12,1,16,1,4,5,5,4,12,1,7,1,4,1,16,4,4,4,12,1,16,4,5,4,4,4,16,1,5 %N A099301 Arithmetic derivative of d(n), the number of divisors of n. %D A099301 See A003415. %H A099301 Antti Karttunen, <a href="/A099301/b099301.txt">Table of n, a(n) for n = 1..10000</a> %F A099301 a(n) = A003415(A000005(n)). %t A099301 dn[0]=0; dn[1]=0; dn[n_]:=Module[{f=Transpose[FactorInteger[n]]}, If[PrimeQ[n], 1, Plus@@(n*f[[2]]/f[[1]])]]; Table[dn[DivisorSigma[0, n]], {n, 150}] %Y A099301 Cf. A000005, A003415 (arithmetic derivative of n). %K A099301 nonn %O A099301 1,6 %A A099301 _T. D. Noe_, Oct 12 2004