%I#8 2019年8月24日11:52:55

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

%T 0,0,1,0,2,0,0,1,0,00,1,0，0,0',0,1,1,0,10,0.0,0,2,2,0,2,0，0,1,2,0，

%U 0,0,0,1,0,0，0,0'0,00,0'，0,1,0，0，0,1，0,0

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

%H Antti Karttunen，<a href=“/A069845/b069845.txt”>n的表，a（n）表示n=1..20000</a>

%e参见A069842中的示例。

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

%o（PARI）A069845（n）={my（digs=数字（n），u=#digs，nums=集合（[]））_Antti Karttunen，2019年8月23日

%Y参见A069842、A069843、A06984、A06986、A0698.47、A0691848、A069859、A069850和A069851。

%K基，nonn

%O 1,19号

%A _Amarnath Murthy，2002年4月16日

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