与原点距离平方为素数的点

青青子衿

由于对称性，取第一象限由角平分线分开后的上半象限
PowersRepresentations[#, 2, 2] & /@ Select[Range[1, 100, 4], PrimeQ]

1. ListPlot[Flatten[
2.   PowersRepresentations[#, 2, 2] & /@
3.    Select[Range[1, 100, 4], PrimeQ], 1], GridLines -> Automatic,
4. AspectRatio -> 1, PlotRange -> {{-1, 10}, {-1, 10}}]

Copy the Code