a068839[n_]：=模块[{}，a1=扁平[Table[整数位数[i]，{i，n，1，-2}]]；FromDigits[pref=1；a2=a1；While[！PrimeQ[FromDiges[a2]，a2=Join[IntegerDigits[pref]，a1]；pref+=1]；a2]]；表[a068839[i]，｛i，1，33，2｝]
sp[n_]：=模块[{k=0，r=FromDigits[Flatten[IntegerDigits/@Reverse[Range[1，n，2]]]}，While[！PrimeQ[k*10^IntegerLength[r]+r]，k++]；k*10^整数长度[r]+r]；表[sp[i]，{i，1，33，2}](*哈维·P·戴尔2016年5月25日*）
