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 A345045 #9 May 12 2024 15:35:30 %S A345045 1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,1,3,1,2,1,1,2,1, %T A345045 2,1,1,1,2,1,1,2,1,1,4,1,1,1,1,1,2,3,1,1,2,1,2,1,1,2,1,1,2,1,4,2,1,1, %U A345045 2,2,1,1,1,1,2,3,2,2,1,1,1,1,1,6,4,1,2,1,1,4,6,1,2,1,2,1,1,1,2,3,1,2,1,1,4 %N A345045 a(n) = A047994(n) / A345044(n), where A047994(n) is multiplicative with a(p^e) = p^e - 1, and A345044(n) gives the least common multiple of the same factors. %H A345045 Antti Karttunen, <a href="/A345045/b345045.txt">Table of n, a(n) for n = 1..65537</a> %F A345045 a(n) = A047994(n) / A345044(n). %o A345045 (PARI) A345045(n) = { my(f=factor(n)~, g=vector(#f, i, (f[1, i]^f[2, i])-1)); factorback(g)/lcm(g); }; %Y A345045 Cf. A047994, A345044. %Y A345045 Cf. also A344879, A345047, A353784. %K A345045 nonn %O A345045 1,15 %A A345045 _Antti Karttunen_, Jun 07 2021