%I#24 2020年7月6日13:54:08

%S 1,1,1,1,2,2,1,3,2,3,1,2,2,3,2,1,2,3,1,2,2,32,2,1,2,2,2,1,1,2,1,2,4,4,5,3，

%T 1,2,3,2,3,5,4,1,2,3,1,2,4,3,3,4,4,3,1,3,2,4,1,4,5,3,4，

%U 4,2,4,4,5,5,3,3,4,1,1,3,2,4,3,3、3,3,1,32,2,3,4,2,1,1,2,3,5,4,3、2,4

%N作为子串嵌入素数（N）中的不同素数。

%H David A.Corneth，n的表，n的A（n）=1..10000</a>

%F a（n）=A039997（素数（n））。

%F a（n）<=A039994（n）.-_Charles R Greathouse IV，2015年4月22日

%e a（26）=1，因为“101”的唯一素子串是101。

%e a（48）=4，因为“223”的唯一不同素子串是2，3，23，223_David A.Corneth，2020年7月6日

%t f[n_]：=块[{id=整数位数@素数@n，len=楼层[Log[10，素数@n]+1]}，计数[PrimeQ@Union[FromDigits@#&/@Flatten[Table[Partition[id，k，1]，{k，len}]，1]]，True]]；数组[f，105]（*_Robert G.Wilson v_，2010年6月28日*）

%o（PARI）dp（n）=如果（n<12，返回（如果（i素数（n），[n]，[]））；my（v=vecsort（select（isprime，eval（Vec（Str（n）））），8），t）；当（n>9时，如果（gcd（n%10，10）>1，n=10；下一步）；t=10；而（（t*=10）<n*10，如果（isprime（n%t），v=concat（v，n%t）））；v=vecsort（v，8）；n=10）；v（v）

%o a（n）=#dp（prime（n））\\查尔斯·格里特豪斯IV，2015年4月22日

%Y参考A039994，A178597。

%K nonn，基础

%O 1,6型

%A·热心的W·威尔逊_

%E姓名由_David A.Corneth更正，2020年7月6日