A354516 Smallest k such that m - gpf(m) = k has exactly n solutions m >= 2, gpf = A006530; or -1 if no such k exists.
1, 2, 6, 483, 1660577
Offset: 0
Examples
a(4) = 1660577: 1660577 = 17*23*31*127, and we have 1660577+17 = 2*13^2*17^3 is 17-smooth, 1660577+23 = 2^3*5^2*19^2*23 is 23-smooth, 1660577+31 = 2^6*3^3*31^2 is 31-smooth, 1660577+137 = 2*11*19*29*137, so m - gpf(m) = 1660577 has 4 solutions m = 1660577+17 = 1660594, 1660577+23 = 1660600, 1660577+31 = 1660608, and 1660577+137 = 1660714.
Programs
-
PARI
gpf(n) = vecmax(factor(n)[, 1]); A354512(n) = my(f=factor(n)[, 1]); sum(i=1, #f, gpf(n+f[i])==f[i]); a(n) = my(k=1); while(omega(k)
A354512(k) != n, k++); return(k)
Comments