Quebra-cabeça Le Monde [#1139] | R-bloggers

cupom com desconto - o melhor site de cupom de desconto cupomcomdesconto.com.br


[Esteartigofoipublicadopelaprimeiravezem[Thisarticlewasfirstpublishedon R – Og de Xian, e gentilmente contribuiu para os R-blogueiros]. (Você pode relatar um problema sobre o conteúdo desta página aqui)


Deseja compartilhar seu conteúdo com R-blogueiros? clique aqui se você tiver um blog ou aqui se não tiver.

UMA o quebra-cabeça matemático atual semanal da Monde que me lembrou um anterior (mas com preguiça de verificar):

O número inteiro n = 36 desfruta da propriedade de que todas as diferenças entre seus divisores ordenados também são divisores de 36. Encontre os únicos 18≤m≤100 que desfrutam dessa propriedade, de modo que todos os seus divisores primos sejam da multiplicidade um. Existem outros m’s?

A execução de uma pesquisa de força bruta R retorna 42 como a solução (codegolf bem-vindo!)

y=z=1:1e5
for(x in y)z[y==x]=!sum(x%%diff((1:x)[!x%%(1:x)]))
y=y[z==1]
for(k in generate_primes(2,max(y)))y=y[!!y%%k^2]

Onde generate_primes é uma função R primária. Aumentar o intervalo de ys para 10⁵ exibe mais uma solução, 1806.



Se você chegou até aqui, por que não inscreva-se para atualizações do site? Escolha o seu sabor: o email, Twitter, RSS ou facebook …



cupom com desconto - o melhor site de cupom de desconto cupomcomdesconto.com.br
Leia Também  ggwebthemes: Alguns temas do ggplot2 otimizados para blogs