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 A363085 #60 May 27 2023 13:05:28 %S A363085 1,3,1,1,1,3,1,9,10,3,1,13,1,3,1,1,1,30,1,1,1,3,1,33,1,3,1,1,1,3,1,1, %T A363085 1,3,1,46,1,3,1,49,1,3,1,1,10,3,1,1,1,3,1,1,1,3,1,65,1,3,1,73,1,3,10, %U A363085 1,1,3,1,1,1,3,1,90,1,3,1,1,1,3,1,81,1,3,1,97,1,3,1,97 %N A363085 Sum of the refactorable unitary divisors of n. %F A363085 a(n) = Sum_{d|n, tau(d)|d, gcd(d,n/d)=1} d. %t A363085 a[n_] := DivisorSum[n, # &, CoprimeQ[#, n/#] && Divisible[#, DivisorSigma[0, #]] &]; Array[a, 100] %Y A363085 Cf. A034444, A336041, A363298. %K A363085 nonn,easy %O A363085 1,2 %A A363085 _Wesley Ivan Hurt_, May 27 2023