# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a353977 Showing 1-1 of 1 %I A353977 #10 Jun 08 2022 16:28:51 %S A353977 0,2,3,6,5,5,7,6,3,7,11,9,13,9,8,6,17,14,19,11,10,13,23,17,5,15,30,13, %T A353977 29,16,31,22,14,19,12,18,37,21,16,11,41,12,43,17,8,25,47,29,7,32,20, %U A353977 19,53,41,16,13,22,31,59,20,61,33,10,22,18,16,67,23,26,24,71,26,73 %N A353977 Sum of the nontrivial divisors of n whose arithmetic derivative divides n. %F A353977 a(n) = Sum_{d|n, d'|n, d>1} d, where d' is the arithmetic derivative of d. %e A353977 The sum of the nontrivial divisors of 6 whose arithmetic derivative divides 6 is 2 + 3 = 5. %t A353977 d[1] = 0; d[n_] := n*Plus @@ ((Last[#]/First[#]) & /@ FactorInteger[n]); a[n_] := DivisorSum[n, # &, # > 1 && Divisible[n, d[#]] &]; Array[a, 100] (* _Amiram Eldar_, May 13 2022 *) %o A353977 (PARI) ad(n) = vecsum([n/f[1]*f[2]|f<-factor(n+!n)~]); \\ A003415 %o A353977 a(n) = sumdiv(n, d, if ((d>1) && !(n % ad(d)), d)); \\ _Michel Marcus_, May 13 2022 %Y A353977 Cf. A003415, A323880. %K A353977 nonn %O A353977 1,2 %A A353977 _Wesley Ivan Hurt_, May 12 2022 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE