Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Jul 20 2020 02:08:36
%S 1,1,6,3,10,6,14,2,3,10,22,2,26,14,15,5,34,3,38,30,21,22,46,3,3,26,3,
%T 42,58,15,62,3,33,34,35,1,74,38,39,5,82,21,86,66,30,46,94,30,3,3,51,
%U 78,106,3,55,7,57,58,118,5,122,62,42,7,65,33,134,102,69,35,142,6,146
%N Squarefree part of n*d(n), where d(n) = number of divisors of n (A000005).
%H Antti Karttunen, <a href="/A336319/b336319.txt">Table of n, a(n) for n = 1..20000</a>
%F a(n) = A007913(A038040(n)) = A007913(n*A000005(n)).
%F a(n) = A038040(n)/A000290(A336318(n)).
%o (PARI) A336319(n) = core(n*numdiv(n));
%Y Cf. A000005, A000290, A007913, A038040, A336318.
%Y Cf. A069067 (positions of ones).
%K nonn
%O 1,3
%A _Antti Karttunen_, Jul 18 2020