与原点距离平方为素数的点
[i=s] 本帖最后由 青青子衿 于 2019-10-14 17:55 编辑 [/i]由于对称性,取第一象限由角平分线分开后的上半象限
PowersRepresentations[#, 2, 2] & /@ Select[Range[1, 100, 4], PrimeQ][code]ListPlot[Flatten[
PowersRepresentations[#, 2, 2] & /@
Select[Range[1, 100, 4], PrimeQ], 1], GridLines -> Automatic,
AspectRatio -> 1, PlotRange -> {{-1, 10}, {-1, 10}}][/code]
页:
[1]