login
A344752
Quotient A306927(k) / A344705(k) computed for such k >= 1 that the quotient is a nonnegative natural number. (The k are given by A344700.)
1
0, 1, 2, 1, 3, 1, 12, 21, 2, 3, 36, 4, 4, 61, 2, 3, 5, 243, 36, 2, 1, 70, 345, 90, 5, 5, 38, 11, 3, 131, 25, 87, 172, 2, 9, 5, 228, 5, 20, 43, 18, 5, 10, 304, 3, 1035, 31, 1301, 7, 172, 8, 554, 60, 15, 295, 59, 14, 150, 110, 7, 2439, 258, 371, 5, 549, 8, 13, 15, 63, 1134, 24, 900, 23, 50, 7, 4, 27, 1292, 254, 6681, 5, 18
OFFSET
1,3
PROG
(PARI)
A001615(n) = if(1==n, n, my(f=factor(n)); prod(i=1, #f~, f[i, 1]^f[i, 2] + f[i, 1]^(f[i, 2]-1))); \\ After code in A001615
isA344700_and_give_quotient(n) = { my(t=A001615(n), s=sigma(n), u = (n+t)-s); if(((u>0)&&(0==((t-n)%u))), ((t-n)/u), 0); };
for(n=1, 2^17, x=isA344700_and_give_quotient(n); if(x>0||(1==n), print1(x, ", ")));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 28 2021
STATUS
approved