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 A363298 #9 May 27 2023 13:06:33 %S A363298 1,2,1,1,1,2,1,2,2,2,1,2,1,2,1,1,1,4,1,1,1,2,1,3,1,2,1,1,1,2,1,1,1,2, %T A363298 1,3,1,2,1,3,1,2,1,1,2,2,1,1,1,2,1,1,1,2,1,3,1,2,1,3,1,2,2,1,1,2,1,1, %U A363298 1,2,1,4,1,2,1,1,1,2,1,2,1,2,1,3,1,2,1,3,1,4 %N A363298 Number of refactorable unitary divisors of n. %F A363298 a(n) = Sum_{d|n, tau(d)|d, gcd(d,n/d)=1} 1. %t A363298 a[n_] := DivisorSum[n, 1 &, CoprimeQ[#, n/#] && Divisible[#, DivisorSigma[0, #]] &]; Array[a, 100] (* _Amiram Eldar_, May 26 2023 *) %Y A363298 Cf. A034444, A336041, A363085. %K A363298 nonn,easy %O A363298 1,2 %A A363298 _Wesley Ivan Hurt_, May 26 2023