素数素数

Question

为了应对这一挑战，素数的素数(PPP)被定义为一个可以定义为素数到素数幂的数。例如，9是PPP，因为它可以表示为3^2.81，另一方面不是PPP，因为它只能表示为3^4，而4不是素数。前几个公私伙伴关系是: 4、8、9、25、27、32、49、121、125、128、169、243、289、343.这是OEIS序列A053810

您的任务：

编写一个程序或函数，对于输入整数n返回/输出nth PPP，无论是1索引还是0索引，随您喜欢。

输入：

在0到1,000之间的整数，通过任何合理的方法接收。

输出：

在输入所指示的索引处的购买力平价。

测试用例：

这些是1索引的，因此，如果您的程序接受0索引的输入，那么对于指定的输入-1，应该得到相同的输出。

3  -> 9
6  -> 32
9  -> 125

评分：

这个密码-高尔夫，以字节为单位的最低分数获胜！

Answer 1

外壳，10字节

!fȯṗ§*ELpN

在网上试试！

解释

!fȯṗ§*ELpN  Implicit input.
 f       N  Filter the natural numbers by this function:
  ȯṗ§*ELp    Argument is a number, say 27.
        p    Prime factors: [3,3,3]
       L     Length: 3
      E      Are all elements equal: 1
    §*       Multiply last two: 3
  ȯṗ         Is it prime? Yes, so 27 is kept.
!           Index into remaining numbers with input.

Answer 2

Mathematica，48字节

Sort[Join@@Array[(p=Prime)@#^p@#2&,{#,#}]][[#]]&   

在网上试试！

但是马丁·安德有一个更好的主意，节省了6个字节

Mathematica，42字节

Sort[Power@@@Prime@Range@#~Tuples~2][[#]]&   

在网上试试！

Answer 3

R +数字，57个字节

function(n,x=numbers::Primes(2*n))sort(outer(x,x,"^"))[n]

在网上试试！

outer是一个非常方便的函数。

相当肯定，这将永远是可行的。会在我有时间的时候进行正式的辩论。