|
%I #9 Feb 25 2020 05:00:46
%S 4,9,8,32,27,25,128,2048,243,49,8192,125,131072,2187,524288,8388608,
%T 536870912,2147483648,177147,137438953472,2199023255552,8796093022208,
%U 121,343,1594323,140737488355328,9007199254740992,3125,576460752303423488,2305843009213693952,147573952589676412928
%N Take the primes raised to prime exponents, arranged in numerical order (A053810). If A053810(n) = r(n)^q(n), where r(n) and q(n) are primes, then a(n) = q(n)^r(n).
%C a(n) = A053812(n)^A053811(n).
%o (PARI) lista(nn) = for(k=1, nn, if(isprime(isprimepower(k, &p)), print1(bigomega(k)^p, ", "))); \\ _Jinyuan Wang_, Feb 25 2020
%Y Cf. A053810, A053811, A053812, A145522.
%K nonn
%O 1,1
%A _Leroy Quet_, Oct 12 2008
%E Extended by _Ray Chandler_, Nov 01 2008
%E More terms from _Jinyuan Wang_, Feb 25 2020
|
