cp's OEIS Frontend

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.

A185232 n-th arithmetic derivative of n.

This page as a plain text file.
%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