Cara menemukan mereka
Ambil bilangan bulat positif k. Temukan pembagi nya . Temukan faktor prima yang berbeda dari masing-masing pembagi . Jumlahkan semua faktor ini bersama-sama. Jika angka ini (jumlah) adalah pembagi dari k ( jika jumlah itu membagi k ) maka, angka ini k, adalah angka BIU
Contohnya
Mari kita ambil nomor 54
Temukan semua pembagi: [1, 2, 3, 6, 9, 18, 27, 54]
Temukan faktor prima yang berbeda dari masing-masing pembagi.
CATATAN: Untuk kasus yang 1
kita ambil sebagai faktor prima yang berbeda1
1 -> 1
2 -> 2
3 -> 3
6 -> 2,3
9 -> 3
18 -> 2,3
27 -> 3
54 -> 2,3
Sekarang kita mengambil jumlah dari semua faktor-faktor prima
1+2+3+2+3+3+2+3+3+2+3=27
27
membagi 54 (daun tidak ada sisa)
Jadi, 54
adalah sebuah nomor Biu .
Lain (cepat) contoh bagi k=55
pembagi: [1,5,11,55]
Sum faktor prima yang berbeda: 1+5+11+5+11=33
33
adalah TIDAK pembagi dari 55, itu sebabnya 55
adalah TIDAK sebuah nomor Biu .
Nomor BIU
Inilah 20 yang pertama:
1,21,54,290,735,1428,1485,1652,2262,2376,2580,2838,2862,3003,3875,4221,4745, 5525,6750,7050 ...
tetapi daftar ini terus berlanjut dan ada banyak nomor BIU yang menunggu untuk ditutup oleh Anda!
Tantangan
Diberikan integer n>0
sebagai input , output nomor BIU ke - n
Uji Kasus
Input-> Output
1->1
2->21
42->23595
100->118300
200->415777
300->800175
Ini adalah codegolf. Jawaban terpendek dalam byte menang!
1
ini bukan yang utama ...Jawaban:
Jelly ,
1615 byteCobalah online!
Woohoo untuk builtin (tapi mereka secara misterius bersembunyi dariku kadang jadi -1 byte terima kasih kepada @HyperNeutrino )
Bagaimana itu bekerja
sumber
ÆfQ€
bukanÆFḢ€€
but they mysteriously hide from me sometime
"Jelly adalah permainan pencarian atom dan programmer" ~ i cri everytimÆDÆFSSḢ‘ḍ
.05AB1E , 9 byte
Menggunakan pengodean 05AB1E . Cobalah online!
sumber
Mathematica, 85 byte
sumber
Sekam , 13 byte
Cobalah online!
Penjelasan
sumber
Sebenarnya , 16 byte
Cobalah online!
Penjelasan:
sumber
Pyth , 22 byte
Coba di sini!
Ini adalah solusi Pyth pertama saya, saya mulai mempelajarinya berkat rekomendasi dari beberapa pengguna yang sangat baik dalam obrolan: -) ... Butuh sekitar satu jam untuk menyelesaikannya.
Penjelasan
sumber
Haskell , 115 byte
Semua pemahaman daftar di sini mungkin bisa diturunkan, tapi saya tidak yakin bagaimana caranya. Selamat datang saran bermain golf! Cobalah online!
Tidak melakukanolf
Jawaban ini sebenarnya tiga fungsi tumbuk bersama.
sumber
Japt ,
2221 byteMenguji
Saya merasa seperti
g
metode fungsi harus mengarah ke solusi yang lebih pendek, tapi saya tidak tahu cara kerjanya!Penjelasan
Input bilangan bulat implisit
U
.Mulai dari
0
, kembalikan angka pertama yang mengembalikan true ketika melewati fungsi berikut, denganX
menjadi angka saat ini.Dapatkan pembagi (
â
) dariX
dan melewati masing-masing melalui fungsi.Dapatkan faktor (
k
) dari elemen saat ini dan hapus duplikat (â
).Kurangi array dengan tambahan setelah terlebih dahulu melakukan hal yang sama untuk setiap sub-array.
Tambahkan
1
ke hasilnya.Tes jika
X
dapat dibagi dengan angka itu.Peningkatan
J
(awalnya-1
) dengan hasil tes itu.Periksa kesetaraan dengan
U
.sumber