给定一个很大的数字（以10为底），例如1234567891011121314151617，请在其中找到素数“ subnumbers”。
素数“子数”是连续的数字序列（从输入中获取），代表一个素数（以10为底）。

• 输入：数字（字符串，文件或任何您喜欢的数字）。
• 输出：所有素数子数字都以某种方式分隔（在列表，文件，逗号分隔的字符串中……）如果结果为空，则可以采用任何喜欢的约定（硬编码字符串，空字符串，乱码，但程序不应崩溃。
• 示例
  1234->
  2、3、23 6542-> 5、2
  14-> [..空输出]

这是代码高尔夫球。最短的程序获胜！
[edit]：附加规则，程序必须说明！并不是每个人都精通果冻:)

05AB1E（旧版），3个字节

Œʒp

在线尝试！

输入的子字符串为素数。

Perl 6，28个字节

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

在线尝试！

:ex匹配运算符的（“ exhaustive”）标志m使它返回的所有可能匹配项.+（即，一个或多个字符的每个子串），甚至是重叠的。超级操作员+«将该Match对象列表转换为数字，然后使用对其过滤素数grep &is-prime。

Brachylog，4个字节

-1个字节感谢Kroppeb。

sᶠṗˢ

在线尝试！

ᶠind所有substrings，ˢ选择ṗ雾elect

Python 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核心实用程序：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启发

Python 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]是操作者的形式Select，其将返回其所有元素的列表PrimeQ@*FromDigits返回True。

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

在线尝试！