1,2
n，a（n）n＝1…9的表。
NExtPrim[n]：=块[{k= n+1 }，同时]！Primeq [k]，k++]；k=；p＝1；do[If[mod[p= nExpRim[p]，n]＝n- 10，打印[n]，{n，1, 10 ^ 9 }]
囊性纤维变性。A023 152，A045 924，A092044，A092045，A092046，A092047，A092048，A092049，A092050，A092051是的。
语境中的顺序：A269553 A086207 A32633*A1399 A140870 A157601
相邻序列：A092049 A092050 A092051*A092053 A092054 A092055
诺恩
Robert G. Wilson五世2月18日2004
由Mohammed Bouayoun（布尧（AT）Waadoo.Fr）修正，2月20日2004
经核准的
