悠闲数学娱乐论坛(第2版)'s Archiver

青青子衿 发表于 2019-10-14 14:15

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

[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]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.