OFFSET
2,1
LINKS
Giuseppe Coppoletta, Table of n, a(n) for n = 2..10000
EXAMPLE
a(33) = 25 because Omega(33)=2 and 5^2 < 33 < 7^2.
If n= 3^3 * 31^2 * 67 then a(n)= 7^6 and A273285(n)=11^6 because Omega(n)=6 and 7^6 < n < 11^6.
MATHEMATICA
Table[NextPrime[(Floor[n^(1/PrimeOmega[n])] + 1) , -1]^PrimeOmega[n], {n, 2, 50}] (* G. C. Greubel, May 26 2016 *)
PROG
(Sage) s=sloane.A001222; [previous_prime(floor(n^(1/s(n)))+1)^s(n) for n in (2..74)]
(PARI) a(n) = my(bn=bigomega(n)); precprime(sqrtnint(n, bn))^bn; \\ Michel Marcus, May 24 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Giuseppe Coppoletta, May 20 2016
STATUS
approved