%I#7 2019年8月24日11:53:05

%S 1,0,0,0,1,0,0，0,0，0,0，

%T 0,0,1,0,0,2,2,0,00,02,2,0,1,2,0,,0,0，0,2,00,0，

%U 0,0,1,0,1,1,0,0,0-1,0,1,0,00,2,0,0:0,0,0，0,01,0,1,0，0,1,0

%N通过在N中所有可能的位置插入6而获得的不同素数。这包括前缀。

%H Antti Karttunen，n的表，n=1..20000的a（n）</a>

%e参见A069842中的示例。

%t表格[Count[PrimeQ[Union[FromDigits/@Table[Insert[IntegerDigits[n]，6，j]，{j，1，Floor[Log[10，n]+2]}]]，True]，{n，1，105}]

%o（PARI）A069847（n）={my（digs=数字（n），u=#digs，nums=集合（[]））；对于（n=1,1+u，nums=setunion（nums，[fromdigits（向量（1+u，i，如果（i<n，digs[i]，if（i>n，diggs[i-1]，6））））；#select（isprime，nums）；}；\\_Antti Karttunen，2019年8月23日

%Y参见A069842、A069843、A06984、A06985、A069866、A0691848、A0698.49、A069850和A069851。

%K基，nonn

%O 1,13号

%A _Amarnath Murthy，2002年4月16日

%E由_Robert G.Wilson v_编辑和扩展，2002年4月18日