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 A375240 #13 Aug 23 2024 08:38:16
%S A375240 1,2,3,2,5,6,7,4,3,10,11,6,13,14,15,2,17,6,19,10,21,22,23,12,5,26,9,
%T A375240 14,29,30,31,4,33,34,35,6,37,38,39,20,41,42,43,22,15,46,47,6,7,10,51,
%U A375240 26,53,18,55,28,57,58,59,30,61,62,21,4,65,66,67,34,69
%N A375240 For squarefree j, a(j*k^2) = j * a(k), a(1) = 1.
%H A375240 Michael De Vlieger, <a href="/A375240/b375240.txt">Table of n, a(n) for n = 1..10000</a>
%H A375240 Michael De Vlieger, <a href="/A375240/a375240.png">Log log scatterplot of a(n)</a>, n = 1..2^20.
%F A375240 Multiplicative with a(p^e) = p^A000120(e).
%F A375240 a(n) = A007913(n) * a(A000188(n)).
%F A375240 a(n) = Product_{k >= 0} A007947(A352780(n,k)). - _Peter Munn_, Aug 23 2024
%t A375240 Array[Apply[Times, FactorInteger[#] /. {p_Integer, e_Integer} :> p^DigitCount[e, 2, 1]] &, 69] (* _Michael De Vlieger_, Aug 07 2024 *)
%Y A375240 Cf. A000120, A000188, A007913, A007947, A352780.
%K A375240 nonn,easy,mult
%O A375240 1,2
%A A375240 _Peter Munn_, Aug 07 2024