OFFSET
2,1
COMMENTS
LINKS
Giuseppe Coppoletta, Table of n, a(n) for n = 2..10000
EXAMPLE
MATHEMATICA
Table[NextPrime[(Ceiling[n^(1/PrimeOmega[n])] - 1)], {n, 2, 50} ] (* G. C. Greubel, May 26 2016 *)
PROG
(Sage) [next_prime(ceil(n^(1/sloane.A001222(n)))-1) for n in (2..82)]
CROSSREFS
KEYWORD
nonn
AUTHOR
Giuseppe Coppoletta, May 19 2016
STATUS
approved