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.)

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

Author

Antti Karttunen, May 28 2021

Keywords

• nonn

Crossrefs

Cf. A000203, A001615, A306927, A344700, A344705.

Programs

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,", ")));