%I#9 2017年3月31日20:26:58

%S 2,3,4,7,11,13,17,19,23,29,31,37,51,53,57,43,49,61,67,71,73,79,83,89，

%电话97101103107109113127131137139141147163167173179，

%U 1811911931971992112232272293239253251241247263电话

%N在素数序列中，用“4”替换所有的“5”数字，反之亦然。

%H Vincenzo Librandi，n的表，n=1..1000的a（n）</a>

%t从数字[IntegerDigits[#]/。{5->p，4->q}/。{p->4，q->5}]&/@Prime[Range[100]]（*文森佐·Librandi_，2013年4月7日*）

%o（PARI）a（n）=我的（v=[0,1,2,3,5,4,6,7,8,9]）；subst（Pol（应用（k->v[k+1），数字（质数（n））），'x，10）\\查尔斯·格里特豪斯IV_，2013年7月24日

%K nonn，基础，简单

%O 1,1号机组

%A _N.J.A.Sloane和V Incenzo Librandi，2010年9月4日