本帖最后由 青青子衿 于 2019-10-14 17:55 编辑 由于对称性，取第一象限由角平分线分开后的上半象限
PowersRepresentations[#, 2, 2] & /@ Select[Range[1, 100, 4], PrimeQ]- ListPlot[Flatten[
- PowersRepresentations[#, 2, 2] & /@
- Select[Range[1, 100, 4], PrimeQ], 1], GridLines -> Automatic,
- AspectRatio -> 1, PlotRange -> {{-1, 10}, {-1, 10}}]
|
