OFFSET
1,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
A079870[n_] := If [n == 1, 1, Ceiling[n^(1/PrimeOmega[n])]];
Array[A079870, 100] (* Paolo Xausa, Oct 28 2024 *)
PROG
(PARI) a(n) = if (n==1, 1, ceil(n^(1/bigomega(n)))); \\ Michel Marcus, May 31 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 13 2003
STATUS
approved