（PARI）isok（n）={对于（i=1,7，如果（！vecmin（数字（n^i）），返回（0））；）；返回（1）；}\\米歇尔·马库斯2013年10月11日
（PARI）\\检查大型（>10^9）成员的脚本：
is（n）=对于（i=1，7，if（vecmin（数字（n^i））==0，return（0））；1
坏（n，d）=对于（k=1，d，if（n%10==0，return（1））；n=10）；0
好7（n，d）=我的（t=1）；对于（i=1,7，如果（坏（提升（t*=n），d），返回（0））；1
左（d）=我的（v=列表（），m=10^d）；对于（i=0，10^d-1，如果（good7（Mod（i，m），d），listput（v，i）））；车辆（v）
diff（v）=矢量（#v-1，i，v[i+1]-v[i]）
L=左侧（9）；D=差异（concat（L，10^9+L[1]））；对于步骤（n=L[1]，1e12，D，如果（是（n），打印（n））\\查尔斯·格里特豪斯四世2013年10月14日
| 