OFFSET
2,3
LINKS
David W. Wilson, Table of n, a(n) for n = 2..10000
FORMULA
a(n) = n^k/A079277(n), where k is the least value making the right side an integer (Tomas Rokicki). [Corrected by Pontus von Brömssen, Sep 13 2025]
PROG
(PARI) a77(n) = forstep(k = n - 1, 2, -1, f = factor(k); okk = 1; for (i=1, #f~, if ((n % f[i, 1]) != 0, okk = 0; break; )); if (okk, return (k)); ); return (1); \\ A079277
a(n) = my(k=0, f=a77(n)); while(n^k % f, k++); n^k/f; \\ Michel Marcus, Sep 13 2025
CROSSREFS
KEYWORD
nonn,base
AUTHOR
David W. Wilson, Feb 05 2012
STATUS
approved
