（哈斯克尔）
a048646 n=a048646_列表！！（n-1）
a048646_list=过滤器（（==1）。a010051'）a048653_列表
（Python）
从数学导入isqrt
从sympy导入primerange
定义发行方（n）：返回isqrt（n）**2==n
定义正常（n，c）：
如果{2,3,7,8}中有n%10：返回False
如果issquare（n）和c>1：则返回True
d=str（n）
对于范围（1，len（d））中的i：
如果d[i]！='0'和issquare（int（d[：i]））和ok（int（d[i:]），c+1）：
return True
返回False
def aupto（lim）：返回[p代表素数范围（1，lim+1）中的p，如果正常（p*p，1）]
