OFFSET
1,30
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
EXAMPLE
n=210, with 4 p-divisors; all its 16 divisors are unitary; product=210^(16/2)=3782285936100000000, while 210^4=1944810000; a(210)=3782285936100000000/1944810000=1944810000.
MATHEMATICA
Table[n^(2^(PrimeNu[n] - 1) - PrimeNu[n]), {n, 1, 50}] (* G. C. Greubel, May 20 2017 *)
PROG
(PARI) for(n=1, 50, print1(round(n^(2^(omega(n) -1) - omega(n))), ", ")) \\ G. C. Greubel, May 20 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 13 2001
STATUS
approved