（哈斯克尔）
导入数据。列表（elemIndex）；导入数据。也许（来自Just）
a258437=（+1）。来自Just。（`elemIndex`a258383_list）
lista（nn）={my（vp=素数（nn，n））；my（v=向量（nn-1，k，2*vp[k]-vp[k+1]），last=v[1]，nb=1，list=list（））；kill（vp）；对于（n=2，nn-1，如果（v[n]=last，nb++，listput（list，nb）；last=v[n]；nb=1）；）；Vec（list）；}\\A258383型
查找（k，v）={my（i=1）；while（v[i]！=k，i++）；i；}
列表器（nn）={my（v=lista（nn，））；对于（k=1,6，my（pos=find（k，v））；打印1（总和（i=1，pos，v[i]）-k+1，“，”）；}
