Antti Karttunen, <a href="/A347463/b347463_1.txt">Table of n, a(n) for n = 1..16384</a>
Antti Karttunen, <a href="/A347463/b347463_1.txt">Table of n, a(n) for n = 1..16384</a>
proposed
approved
editing
proposed
<a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a>
Antti Karttunen, <a href="/A347463/b347463_1.txt">Table of n, a(n) for n = 1..16384</a>
1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 4, 1, 1, 1, 7, 1, 4, 1, 4, 1, 1, 1, 6, 2, 1, 3, 4, 1, 1, 1, 11, 1, 1, 1, 18, 1, 1, 1, 6, 1, 1, 1, 4, 4, 1, 1, 20, 2, 4, 1, 4, 1, 6, 1, 6, 1, 1, 1, 8, 1, 1, 4, 26, 1, 1, 1, 4, 1, 1, 1, 35, 1, 1, 4, 4, 1, 1, 1, 20, 7, 1, 1, 8, 1, 1, 1, 6, 1, 8, 1, 4, 1, 1, 1, 32, 1, 4, 4, 18
(PARI) A347463(n, m=n, ap=1, e=0) = if(1==n, if(e%2, 1==denominator(ap), 1==numerator(ap)), sumdiv(n, d, if(d>1, A347463(n/d, d, ap * d^((-1)^e), 1-e)))); \\ Antti Karttunen, Jul 28 2024
Data section extended up to a(100) by Antti Karttunen, Jul 28 2024
approved
editing
proposed
approved
editing
proposed
editing
proposed