A264155 a(n) is the smallest integer m such that n is the least exponent k satisfying sigma(m)^k divides m.
1, 24, 40, 384, 486, 6144, 640, 18688, 39366, 91136, 10240, 23482368, 958464, 52612659, 163840, 375717888, 9568256, 1502871552, 2621440, 353370112, 186646528
Offset: 1
Links
- David A. Corneth, PARI program for some upper bounds below specified value
- David A. Corneth, Upper bounds (or actual values) for a(n)
Programs
-
PARI
fk(s, m) = {my(j = 1); while(denominator(s^j/m) != 1, j++); j;} rad(n) = factorback(factorint(n)[, 1]); a(n) = {my(k = 1, ok = 0, sk); while (!ok, sk = sigma(k); if ((denominator(sk/rad(k)) == 1) && (fk(sk, k) == n), ok = 1, k++; ); ); k; } \\ corrected by Michel Marcus, Feb 14 2019
Comments