Mari kita tentukan urutan. Kami akan mengatakan bahwa adalah angka terkecil, , yang memiliki properti berikut:
dan adalah co-prime (tidak berbagi faktor)
tidak muncul sebelumnya dalam urutan
Tidak seperti kebanyakan urutan, domain dan jangkauan urutan kami adalah bilangan bulat yang lebih besar dari 1.
Mari kita hitung beberapa istilah pertama.
, harus paling tidak4, tetapi4dan2berbagi faktor2jadi harus5.
, harus sekurang-kurangnya5tetapi5diambil oleh , jadi paling tidak6, tetapi6berbagi faktor dengan3sehingga minimal7,7memenuhi ketiga persyaratan sehingga .
- 2 Membagikan satu faktor
- 3 Terlalu dekat
- 4 Terlalu dekat
- 5 Terlalu dekat
- 6 Membagikan faktor
- 7 Diambil oleh (3)
- 8 Membagikan faktor
- 9 itu bagus
- 2 bagus
Tugas
Dalam tantangan ini Anda harus menulis sebuah program yang mengambil angka lebih besar dari 1 dan mengembalikan .
Ini adalah pertanyaan kode-golf sehingga jawaban akan dinilai dalam byte, dengan lebih sedikit byte yang lebih baik.
Uji Kasus
Berikut adalah pasangan istilah pertama dari urutan (Mereka tentu saja 2 diindeks):
5,7,9,2,11,3,13,4,17,6,19,8,23,22,21,10,25,12,27,16,15,14
Fakta Bonus menyenangkan
Sebagaimana dibuktikan oleh Robert Israel pada Math.se ( link di ) urut ini adalah kebalikan sendiri, yang berarti bahwa untuk semua n.
OEIS
Setelah mengajukan pertanyaan ini, saya mengirimkan urutan ini ke OEIS dan setelah beberapa hari ditambahkan.
Jawaban:
Haskell , 61 byte
Cobalah online!
Saya cukup baru di Haskell, jadi setiap kiat bermain golf sangat dihargai.
Terima kasih kepada Wheat Wizard untuk 2 byte dan nimi untuk 4 byte
Penjelasan:
sumber
Alice , 42 byte
Cobalah online!
Penjelasan
Ini adalah templat standar untuk program yang menggunakan nomor sebagai input, dan mengeluarkan nomor, dimodifikasi untuk menempatkan 1 pada tumpukan di bawah nomor input.
Bagian utama dari program menempatkan setiap nomor
k
dalam slota(k)
pada pita. Loop dalam menghitung a (k), dan loop luar berulang di atas k sampai a (n) dihitung.sumber
VB.NET (.NET 4.5), 222 byte
Saya harus memutar GCD Anda sendiri. Saya juga tidak tahu bagaimana cara mendapatkannya agar tidak menjadi keseluruhan fungsi.
GCD selalu> = 1, jadi hanya perlu mengabaikan 1
Mengambil hubungan arus pendek di golf karena lebih pendek
Tidak bermain golf
sumber
Mathematica, 111 byte
Cobalah online! 2..23 (mode jangkauan)
Cobalah online! atau 150 (nilai berbeda)
sumber
Japt , 33 byte (non-bersaing?) †
Cobalah online!
† Saya memperbaiki bug di Japt Interpreter saat mengerjakan solusi ini. Meta post ini dari tahun lalu menganggap jawaban ini tidak bersaing, tetapi meta post baru ini mendorong lebih banyak kebebasan dalam hal ini. Bagaimanapun, saya menghabiskan terlalu banyak waktu untuk membatalkannya.
sumber
05AB1E , 26 byte
Cobalah secara online atau hasilkan yang pertaman istilah sebagai daftar . (CATATAN: 10 ∗ n dari pada 10n ).)
°
jelas sangat lambat, jadi diganti denganT*
di tautan TIO (Penjelasan:
sumber