OFFSET
2,1
LINKS
Giuseppe Coppoletta, Table of n, a(n) for n = 2..10000
EXAMPLE
MATHEMATICA
a[n_] := NextPrime[ Floor[n^ (1/PrimeOmega[n])] + 1, -1]; a /@ Range[2, 100] (* Giovanni Resta, May 25 2016 *)
PROG
(Sage) [previous_prime(floor(n^(1/sloane.A001222(n)))+1) for n in (2..100)]
(PARI) a(n) = precprime(sqrtnint(n, bigomega(n))); \\ Michel Marcus, May 24 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Giuseppe Coppoletta, May 19 2016
STATUS
approved