1234567891011121314151617などの（10を基数とする）大きい数を指定すると、その中の素数の「サブ番号」を見つけます。
素数の「サブ番号」は、連続した数字列（入力から取得）であり、素数（10を底とする）を表します。

• 入力：数値（文字列、ファイル、または任意のもの）。
• 出力：何らかの形で区切られたすべての素数（リスト、ファイル、コンマ区切りの文字列のいずれか...）クラッシュ。
• 例えば
  > 2、3、23から1234
  6542 - > 5、2
  14 - > [..空の出力]

これはコードゴルフです。最短のプログラムが勝ちます！
[編集]：追加ルール、プログラムを説明する必要があります！誰もがゼリーに堪能ではない:)

05AB1E（レガシー）、3バイト

Œʒp

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

素数である入力の部分文字列。

Perl 6、28バイト

{grep &is-prime,+«m:ex/.+/}

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

:exマッチ演算子への（ "exhaustive"）フラグは、一致mするものすべて.+（つまり、1つ以上の文字のすべての部分文字列）を返します。ハイパー演算子+«は、そのMatchオブジェクトのリストを数値に変換しgrep &is-primeます。数値は、によってプライムネスのためにフィルタリングされます。

Brachylog、4バイト

Kroppebのおかげで-1バイト。

sᶠṗˢ

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

ᶠすべてindはs、ubstringsをˢ選出ṗライムスを

パイソン2、66の 65バイト

P=k=1
n=input()
while~n+k:
 if`k`in`n`>0<P%k:print k
 P*=k*k;k+=1

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

Japt、13 10バイト

ありがとう@Shaggy -3バイト

ò fj f@søX

ò fj f@søX              Full program
                        implicity input
ò                       inclusive range [this - 1]
  fj                    filter primes and
     f@søX              values contained in input

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

ゼリー、 5  4 バイト

-1 Kevin Cruijssenに感謝します（ẒのエイリアスですÆP）

ẆḌẒƇ

素数のリストを生成する数字*のリストを受け入れる単項リンク。

^{*「文字列、ファイル、またはあなたが好きなもの」で行く-整数を取得するには、コードの前に D}

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

どうやって？

ẆḌẒƇ - Link: list of integers (digits)   e.g. [1,2,3,4]
Ẇ    - non-empty contiguous substrings        [[1],[2],[3],[4],[1,2],[2,3],[3,4],[1,2,3],[2,3,4],[1,2,3,4]]
 Ḍ   - convert to decimal (vectorises)        [1,2,3,4,12,23,34,123,234,1234]
   Ƈ - filter keep if:
  Ẓ  -   is prime?                            [2,3,23]

Java 8、148 147バイト

n->{for(int l=n.length(),i=l,j;i-->0;)for(j=l;j>i;){long k=2,x=new Long(n.substring(i,j--));for(;k<x;x=x%k++<1?0:x);if(x>1)System.out.println(x);}}

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

説明：

n->{                     // Method with String parameter and no return-type
  for(int l=n.length(),  //  Length of the input-String
          i=l,j;         //  Temp-integers
      i-->0;)            //  Loop `i` in the range [length, 0)
    for(j=l;j>i;){       //   Inner loop `j` in the range [length, 0)
      for(long k=2,      //    Set `k` to 2
               x=new Long(n.substring(i,j--)
                         //    Take the substring [`i`, `j`) from the input,
            );           //    convert it to a long, and set it as `x`
          k<x;           //    Inner loop as long as `k` is still smaller than `x`
        x=x%k++<1?       //     If `x` is divisible by `k`:
           0             //      Set `x` to 0
          :              //     Else:
           x);           //      Leave `x` unchanged
      if(x>1)            //    If `x` is now larger than 1 (a.k.a. If `x` is a prime):
        System.out.println(x);}}
                         //     Print `x` with a trailing newline to STDOUT

MATL、9バイト

&XfXUtZp)

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

説明

&Xf   % Implicit input: string. Push cell array of non-empty substrings
XU    % Convert to number. Vectorizes
t     % Duplicate
Zp    % Isprime. Vectorizes.
)     % Index. Keeps substrings indicated by the previous result. Implicit display

Bash + GNU Core Utils：80 77バイト

for i in $(seq `tee a|wc -c`)
{
grep -oE .{$i}<a|factor|grep -oP ': \K\d+$'
}

これは最短ではありませんが、より良いものを思い付くのに苦労しています。従業員求む！

POSIXのみに固執することで、82を得ました。

for i in $(seq `tee a|wc -c`)
{
grep -oE .{$i}<a|factor|awk -F\  'NF<3{print$2}'
}

R、60バイト

function(v)Filter(function(i)grepl(i,v)&sum(!i%%1:i)==2,1:v)

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

@ovs python 2回答に触発された、実際には効率的ではない

パイソン2、115の 114バイト

f=lambda s:s and[n for n in[int(s[j:])for j in range(len(s))]if n>1and all(n%i for i in range(2,n))]+f(s[:-1])or[]

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

殻、5バイト

foṗiQ

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

クリーン、108バイト

import StdEnv,Data.List
$s=nub[n\\u<-inits s,n<-map(toInt o toString)(tails u)|n>1&&all(\m=n/m*m<n)[2..n-1]]

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

Pyth、8バイト

fP_TsM.:

テストスイート

入力を文字列として受け取り、整数のリストを出力します。余分なバイトを最後にint 追加することにより`、入力を受け取ることもできます。

fP_TsM.:  | Full code
fP_TsM.:Q |  with implicit variables added
          | Print (implicit)
      .:Q |  list of all substrings of the input
    sM    |   converted to integers
fP_T      |    filtered for prime numbers

そして、`単にに変換intしstrます。

Wolfram言語（Mathematica）、40バイト

Select[PrimeQ@*FromDigits]@*Subsequences

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

入力と出力は数字のリストです。素数のサブ番号がない場合、空のリスト{}が返されます。

使用する@*ためCompositionの機能。Subsequences入力のすべてのサブシーケンスのリストを提供します。これは、を返すすべての要素のリストを返すSelect[PrimeQ@*FromDigits]演算子形式です。SelectPrimeQ@*FromDigitsTrue

Matlab、89バイト

function[m]=f(x),m=1;for i=1:length(x),m=[m;str2num(combnk(x,i))];end,m=m(isprime(m));end

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