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 A363318 #3 May 27 2023 13:30:21
%S A363318 0,1,2,3,4,9,6,7,8,17,10,11,12,25,14,15,16,42,18,19,20,41,22,39,24,49,
%T A363318 26,27,28,57,30,31,32,65,34,62,36,73,38,71,40,81,42,43,80,89,46,47,48,
%U A363318 97,50,51,52,105,54,103,56,113,58,107,60,121,116,63,64,129,66,67,68,137,70
%N A363318 Total distance from n to each of its refactorable unitary divisors.
%F A363318 a(n) = Sum_{d|n, tau(d)|d, gcd(d,n/d)=1} (n - d).
%F A363318 a(n) = n * A363298(n) - A363085(n).
%t A363318 a[n_] := DivisorSum[n, n - # &, CoprimeQ[#, n/#] && Divisible[#, DivisorSigma[0, #]] &]; Array[a, 100]
%Y A363318 Cf. A363085, A363298.
%K A363318 nonn,easy
%O A363318 1,3
%A A363318 _Wesley Ivan Hurt_, May 27 2023