A352834 Least k > 0 such that denominator( d(k*n)/(k*n) ) = n, or 0 if no such k exists, where d = A000005 is the number-of-divisors function.
1, 4, 1, 1, 1, 12, 1, 10, 12, 2, 1, 20, 1, 2, 1, 1, 1, 0, 1, 24, 1, 2, 1, 2, 1, 2, 1, 20, 1, 0, 1, 14, 1, 2, 1, 24, 1, 2, 1, 4, 1, 40, 1, 20, 12, 2, 1, 3, 1, 4, 1, 20, 1, 18, 1, 2, 1, 2, 1, 32, 1, 2, 12, 1, 1, 40, 1, 20, 1, 48, 1, 0, 1, 2, 36, 20, 1, 40, 1, 5, 1, 2, 1, 4, 1, 2, 1, 2, 1, 48
Offset: 1
Keywords
Crossrefs
Programs
-
PARI
apply( {A352834(n,L=n^2*2)=forstep(k=n,L,n,denominator(numdiv(k)/k)==n&&return(k/n))}, [1..99])
Comments