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 A356425 #52 Dec 15 2022 17:00:35
%S A356425 1,3,7,12,15,28,31,60,72,63,91,124,168,127,195,252,360,255,403,546,
%T A356425 508,576,600,744,511,819,1170,1020,1344,1240,1512,1023,1651,2418,2044,
%U A356425 2880,2520,2821,3048,2047,3600,3315,4368,3751,4914,4092,5952,5080,6045,6120
%N A356425 Sum of divisors of numbers of least prime signature: a(n) = A000203(A025487(n)).
%C A356425 This sequence is to A146288 as sigma (A000203, the sum of divisors function) is to tau (A000005, the number of divisors function).
%H A356425 Hal M. Switkay, <a href="/A356425/b356425.txt">Table of n, a(n) for n = 1..67</a>
%t A356425 s = {1}; Do[If[GreaterEqual @@ (f = FactorInteger[n])[[;;,2]] && PrimePi[f[[-1,1]]] == Length[f], AppendTo[s, DivisorSigma[1,n]]], {n, 2, 2000}]; s (* _Amiram Eldar_, Dec 12 2022 *)
%Y A356425 Cf. A000005, A000203, A025487, A146288.
%K A356425 nonn
%O A356425 1,2
%A A356425 _Hal M. Switkay_, Dec 11 2022