スーパープライムですか?

バックグラウンド

スーパープライムは素数であり、すべての素数のリストのインデックスも素数です。シーケンスは次のようになります。

3,5,11,17,31,41,59,67,83,109,127,157,179,191、…

これは、 OEISのシーケンスA006450 です。

チャレンジ

正の整数が与えられた場合、スーパープライムであるかどうかを判定します。

テストケース

2: false
3: true
4: false
5: true
7: false
11: true
13: false
17: true
709: true
851: false
991: true

スコアリング

This is ,
so the shortest answer in each language wins.

ベストアンサー

Jelly, 5 bytes

ÆRÆNċ

オンラインで試してみてください!

使い方

ÆRÆNċ  Main link. Argument: n

ÆR     Prime range; yield the array of all primes up to n.
  ÆN   N-th prime; for each p in the result, yield the p-th prime.
    ċ  Count the occurrences of n.

返信を残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です