OFFSET
1,2
COMMENTS
Conjecture: Subsequence of A147516.
EXAMPLE
PROG
(PARI) isp2(n) = if (n<=2, return(1)); my(m); ispower(n, , &m) && (m==2);
f(n) = {my(m=1, nm, k=1, ok=0); until(ok, nm = numdiv(k*n); if (nm > m, m = nm; if (!isp2(k), ok = 1); ); if (!ok, k++); ); k; }
lista(nn) = {my(m=1, fm); for (n=1, nn, fm = f(n); if (fm > m, m = fm; print1(n, ", "); ); ); } \\ Michel Marcus, May 05 2022
CROSSREFS
KEYWORD
nonn,more
AUTHOR
J. Lowell, Apr 03 2022
STATUS
approved