%I#13 2015年7月19日01:53:51

%S 2,3,5,7，1110178792932336563705077272774747477848787，

%电话：12787213212132313218123325252332565233258523272723618163，

%电话：3670763369896370141070363070969073434342747

%N回文素数N，使得1/N的周期是回文。

%C术语数量<10^n:4，5，8，8，15，15，40，40，117，117_Robert G.Wilson v_，2015年7月19日

%D由_Jud McCranie计算_

%H Robert G.Wilson v，n表，n=1..33599</a>

%t（*copy nthPalindrome from A002113*）palQ[n_]：=块[{}，反转[idn=IntegerDigits@n]==idn]；digitCycleLength[r_Rational，b_Integer？Positive]：=乘法顺序[b，FixedPoint[商[#，GCD[#，b]]&，分母[r]]]（*来自Mathematica乘法顺序帮助文件*）；k=1；lst={}；当[k<10000时，p=nth回文[k]；如果[PrimeQ@p&&palQ[digitCycleLength[1/p，10]]，追加到[lst，p]]；k++]；第1期（*_罗伯特·G·威尔逊v_，2015年7月19日*）

%Y参考A002385和A033939。

%K nonn，基础

%O 1,1号机组

%A提案人_G.L.Honaker，Jr_