13

• mi是正整数
• m！= k

# 测试用例

```输入->输出
1000-> 16，64，81，256，512，625，729
56-> 16
999-> 16，64，81，256，512，625，729
81-> 16，64，81
1500-> 16，64，81，256，512，625，729，1024，1296
```

sepp2k 2011年

@ sepp2k是的！我们不应该算空格。
fR0DDY 2011年

4
@ fR0DDY那空白的语言呢？忽略空格字符将始终使该语言获胜。
moinudin 2011年

4

gnibbler 2011年

1
N是否有限制？
Wile E. Coyote

3

## Mathematica：103个字符

``````Select[Flatten@
Table[
Solve[Log@#/Log@b == k, k, Integers] /. k -> #, {b, 2, #}] & /@ Range@#,
Length@# > 2 &][[All, 1, 1]] &
``````

``````%[81]
{16, 64, 81}
``````

3

# 果冻，11个有意义的字节，语言发布日期挑战

``````ḊḟÆR *@þ Ḋ  F  fḊ
``````

``````ḊḟÆR *@þ Ḋ  F  fḊ
ḊḟÆR                Ḋ, with all primes between 2 and the input removed
(i.e. all composite numbers from 4 to the input)
*@þ Ḋ          Exponentiate all Ḋ elements with all ḊḟÆR elements
F       Flatten the result (it had a nested structure)
fḊ   Keep only elements in Ḋ
``````

1

# Perl：68个字符

``````for \$x ( 2..\$N ) {
\$c{\$x**\$_}++ for 2..log(\$N)/log\$x
}
@a = grep { \$c{\$_} > 1 } keys %c
``````

``````\$m = shift;
for \$x ( 2..\$m ) {
\$c{\$x**\$_}++ for 2..log(\$m)/log\$x
}
print join ' ', grep { \$c{\$_} > 1 } keys %c
``````

Wile E. Coyote

@Dogbert：顺序打印并不是挑战。如果是这样，您可以`sort `在之前添加`grep`。顺便说一下，我以前没看过键盘。谢谢。

0

# Ruby-101个字符（无空格）

``````f=->l{c=Hash.new{0}
2.upto(1E4){|i|2.upto(20){|j|c[i**j]+=1}}
c.map{|k,v|v>1&&k<=l&&k||p}.compact.sort}
``````

``````> f[10000]
[16, 64, 81, 256, 512, 625, 729, 1024, 1296, 2401, 4096, 6561, 10000]
``````

0

# 果冻，13个有意义的人物，语言约会挑战

``````R  µ  ọḊ *@Ḋ ċ >2  µ  Ðf
``````

``````R  µ  ọḊ *@Ḋ ċ >2  µ  Ðf
R                     Ðf    Find all numbers n from 1 to the input, such that:
µ               µ          (grouping marks, like {} in C)
Ḋ   Ḋ                  Take the range from 2 to n
ọ                       Find the number of times each divides n
*@                   Raise the range from 2 to n to these powers
ċ                Count the number of times n appears
>2             and the result must be greater than 2
``````

``````2⁸, 3, 4⁴, 5, 6, 7, 8², 9, 10, 11, 12, 13, 14, 15, 16², 17, ..., 255, 256
``````