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 A185232 #22 Nov 03 2022 11:24:11 %S A185232 0,0,0,0,4,0,0,0,1520,0,0,0,235072,0,0,705280,278539264,0,0,0, %T A185232 226593936,0,0,0,295266178368,0,24143851798528,27, %U A185232 10557680820452065280,0,0,0,2821525007683005301391360,0,0,2821525007683005301391360,43942858408664114852524638339072 %N A185232 n-th arithmetic derivative of n. %C A185232 a(n) is zero for all prime n. %H A185232 Alois P. Heinz, <a href="/A185232/b185232.txt">Table of n, a(n) for n = 0..80</a> %t A185232 dn[0]=0; dn[1]=0; dn[n_] := Module[{f=Transpose[FactorInteger[n]]}, If[PrimeQ[n], 1, Plus@@(n*f[[2]]/f[[1]])]]; Table[Nest[dn,n,n], {n,50}] %o A185232 (Python) %o A185232 from sympy import factorint %o A185232 def A185232(n): %o A185232 for _ in range(n): %o A185232 if n <= 1: return 0 %o A185232 n = sum((n*e//p for p,e in factorint(n).items())) %o A185232 return n # _Chai Wah Wu_, Nov 03 2022 %Y A185232 Cf. A003415. %Y A185232 Main diagonal of A258651. %K A185232 nonn %O A185232 0,5 %A A185232 _José María Grau Ribas_, Jan 24 2012