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 A351425 #15 Feb 11 2022 05:28:44
%S A351425 1,1,1,3,1,2,1,9,4,2,1,4,1,2,3,27,1,8,1,4,3,2,1,8,6,2,16,4,1,6,1,81,3,
%T A351425 2,5,16,1,2,3,8,1,6,1,4,9,2,1,16,8,12,3,4,1,32,5,8,3,2,1,12,1,2,9,243,
%U A351425 5,6,1,4,3,10,1,32,1,2,18,4,7,6,1,16,64,2
%N A351425 If n = p_1^e_1 * ... * p_k^e_k, where p_1 < ... < p_k are primes, then a(n) is obtained by replacing the last factor p_k^e_k by (p_k + 1)^(e_k - 1); a(1) = 1.
%H A351425 Amiram Eldar, <a href="/A351425/b351425.txt">Table of n, a(n) for n = 1..10000</a>
%t A351425 a[n_] := Module[{f = FactorInteger[n]}, n*(f[[-1, 1]] + 1)^(f[[-1, 2]] - 1)/f[[-1, 1]]^f[[-1, 2]]]; a[1] = 1; Array[a, 100]
%Y A351425 Cf. A351168, A351419.
%K A351425 nonn
%O A351425 1,4
%A A351425 _Amiram Eldar_ and _N. J. A. Sloane_, Feb 11 2022