仕事

分割するxような数のセットがあります。x^27^x-1

あなたの仕事はこれらの数字を見つけることです。nを入力すると、コードはこの規則に従うn番目の数字を出力します。

例1-インデックス

In   Out
3    3
9    24
31   1140

関連するシーケンスはここで見つけることができます。

ルール

最短回答が勝者となります*

標準的なゴルフ規則が適用されます

抜け穴は許可されていません

あなたの答えは、0または1のいずれかのインデックスになります。答えに明記してください

Haskell、34バイト

([x|x<-[1..],mod(7^x-1)(x^2)<1]!!)

これは、0ベースのインデックスを使用します。使用例：([x|x<-[1..],mod(7^x-1)(x^2)<1]!!) 30-> 1140。

定義の直接実装です。すべての数値のリストを作成しx、nthを選択します。

Pyth、10バイト

e.f!%t^7Z*

整数の入力を受け取り、1つのインデックス付きの値を出力するプログラム。

オンラインでお試しください！

使い方

e.f!%t^7Z*     Program. Input: Q
e.f!%t^7Z*ZZQ  Implicit variable fill
               Implicitly print
e              the last
 .f         Q  of the first Q positive integers Z
     t^7Z      for which 7^Z - 1
    %          mod
         *ZZ   Z^2
   !           is zero

JavaScript（ES7）、40バイト

f=(n,i=1)=>n?f(n-!((7**++i-1)%i**2),i):i

JSがによって精度を失うため、これはかなり早く精度を失い7**19ます。以下は、ほぼ任意精度のES6バージョンです。

f=(n,i=0)=>n?f(n-!(~-(s=++i*i,g=j=>j?g(j-1)*7%s:1)(i)%s),i):i

これは、テストケース31で約1秒以内に終了します。

いくつかのより長いアプローチ：

f=(n,i=0)=>n?f(n-!(~-(s=>g=j=>j?g(j-1)*7%s:1)(++i*i)(i)%s),i):i
f=(n,i=0)=>n?f(n-!(s=++i*i,g=(j,n=1)=>j?g(j-1,n*7%s):~-n%s)(i),i):i
f=(n,i=0)=>n?f(n-!(s=>g=(j,n=1)=>j?g(j-1,n*7%s):~-n%s)(++i*i)(i),i):i

05AB1E、11バイト

µ7Nm<NnÖiN¼

オンラインでお試しください！

何らかの理由で、私は得ることができない½で作業するµ7Nm<NnÖ½Nか、私はPythで結ばれるだろう。

µ           # Loop until the counter equals n.
 7Nm<       # Calc 7^x+1.
     Nn     # Calc x^2.
       Ö    # Check divisibility.
        iN¼ # If divisible, push current x and increment counter.
            # Implicit loop end.
            # Implicitly return top of stack (x)

。

パイソン2、48の 46バイト

-2バイトの@Dennisに感謝します！

f=lambda n,i=1:n and-~f(n-(~-7**i%i**2<1),i+1)

引数を介して入力を受け取り、結果を返す、インデックスが1つの再帰関数。

オンラインでお試しください！（最終的なテストケースを実行できるように再帰制限が増加しました）

使い方

nは目的のインデックスでありi、カウント変数です。

式は、を分割する場合（に相当）を~-7**i%i**2<1返し、そうでない場合（に相当）を返します。関数が呼び出されるたびに、式の結果がから減算され、ヒットが見つかるたびにデクリメントされます。インクリメントされます。True1i^27^i - 1False0nni

の短絡動作は、が返さandれることを意味します。これが基本ケースです。これに達すると、再帰が停止し、元の関数呼び出しによって現在の値が返されます。明示的にを使用するのではなく、関数呼び出しごとに、呼び出しの前でを使用してインクリメントが実行されるという事実を使用して行われます。必要に応じて、時間をインクリメントするとが得られます。n00ii-~0 ii

パイソン2、57の 53 51バイト

^{ETHproductionsのおかげで-4バイト-TuukkaXのおかげで
2バイト}

i=0
g=input()
while g:i+=1;g-=~-7**i%i**2<1
print i

オンラインでお試しください！
シーケンスは1から始まります

Python 2、57バイト

大きな値の場合、これには非常に長い時間がかかります。また、リスト全体を必要以上に構築するため、大量のメモリを使用します。結果はゼロインデックスです。

lambda n:[x for x in range(1,2**n+1)if(7**x-1)%x**2<1][n]

オンラインで試す

Mathematica、43バイト

現在、このバイトカウントで3つの異なるソリューションがあります。

Nest[#+1//.x_/;!(x^2∣(7^x-1)):>x+1&,0,#]&
Nest[#+1//.x_/;Mod[7^x-1,x^2]>0:>x+1&,0,#]&
Nest[#+1//.x_:>x+Sign@Mod[7^x-1,x^2]&,0,#]&

PARI / GP、42バイト

とても簡単です。1インデックス付きですが、これは簡単に変更できます。

n->=k=1;while(n--,while((7^k++-1)%k^2,));k

または

n->=k=1;for(i=2,n,while((7^k++-1)%k^2,));k

Python 3、45バイト

f=lambda n,k=2:n<2or-~f(n-(7**k%k**2==1),k+1)

入力1に対してTrueを返します。これはデフォルトで許可されています。

オンラインでお試しください！

R、35バイト

これはでのみ機能しn<=8ます。

z=1:20;which(!(7^z-1)%%z^2)[scan()]

しかし、ここで働い長いバージョンだn<=25ため、50バイト：

z=1:1e6;which(gmp::as.bigz(7^z-1)%%z^2==0)[scan()]

PHP、47 49バイト

while($n<$argv[1])$n+=(7**++$x-1)%$x**2<1;echo$x;

n <9でのみ機能します（64ビット7**9よりも大きいPHP_INT_MAX）

任意の長さの整数を使用した62バイト：（テストされていません。私のマシンのPHPにはbcmathがありません）

for($x=$n=1;$n<$argv[1];)$n+=bcpowmod(7,++$x,$x**2)==1;echo$x;

で実行しphp -nr '<code>' <n>ます。

擬似コード

implicit: $x = 0, $n = 0
while $n < first command line argument
    increment $x
    if equation is satisfied
        increment $n
print $x

パイク、10バイト

~1IX7i^tR%

ここで試してみてください！

~1         -  infinite(1)
  IX7i^tR% - filter(^, not V)
    7i^    -    7**i
       t   -   ^-1
        R% -  ^ % v
   X       -   i**2
           - implicit: print nth value

Clojure、83バイト

(fn[n](nth(filter #(= 0(rem(-(reduce *(repeat % 7N))1)(* % %)))(iterate inc 1N))n))

オンラインでお試しください！

これにより、1から始まるJava BigIntegerの無限リストが作成され、定義によってフィルタリングされます。ゼロベースのインデックスを使用して、して、フィルターされたリストからn ^番目の値。

Perl 5、35バイト

まあ、これは欠落していたので、ここにあります：

map{$_ if!((7**$_-1)%($_**2))}1..<>

PowerShell、バイトが多すぎます

それが可能かどうかを確認するだけです。

[System.Linq.Enumerable]::Range(1,10000)|?{[System.Numerics.BigInteger]::Remainder([System.Numerics.BigInteger]::Pow(7,$_)-1,$_*$_) -eq 0}

Perl 6の、35の 34バイト

{grep({(7**$_-1)%%$_²},^∞)[$_]}

0インデックス付き。

Brad Gilbertのおかげで1バイト削り取られました。

QBIC、39バイト

:{~(7^q-1)%(q^2)=0|b=b+1]~b=a|_Xq\q=q+1

QBasic 4.5では実行できませんでしたが、QB64では正常に実行されるようです。何らかの不可解な理由で、QBasicは13,841,287,200を144できれいに分割することを拒否しますが、代わりに-128の残りを与えます。次に、このシーケンスの7番目の項として12ではなく16を返します...

:{      get N from the command line, start an infinite DO-loop
~       IF
(7^q-1) Part 1 of the formula (Note that 'q' is set to 1 as QBIC starts)
%       Modulus
(q^2)   The second part
=0      has no remainder
|b=b+1  Then, register a 'hit'
]       END IF
~b=a    If we have scored N hits
|_Xq    Quit, printing the last used number (q)
\q=q+1  Else, increase q by 1. 
        [DO-loop and last IF are implicitly closed by QBIC]

ワンダー、28バイト

@:^#0(!>@! % - ^7#0 1^#0 2)N

ゼロインデックス。使用法：

(@:^#0(!>@! % - ^7#0 1^#0 2)N)2

x^2で割り切れるかどうかを決定する述語で自然数のリストからフィルターし、そのリストの7^x-1n番目のアイテムを取得します。

Tcl、73バイト

while {[incr i]} {if 0==(7**$i-1)%$i**2 {incr j;if $j==$n break}}
puts $i

オンラインでお試しください！