OFFSET
1,2
COMMENTS
MATHEMATICA
Join[{1}, Table[Floor[n^(1/PrimeOmega[n])+1/2], {n, 2, 100}]] (* Harvey P. Dale, Aug 11 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 13 2003
STATUS
approved