Message Boards Message Boards

1
|
4406 Views
|
2 Replies
|
1 Total Likes
View groups...
Share
Share this post:
GROUPS:

Pierpont primes

Posted 9 years ago

Pierpont primes are of the form 2^u 3^v +1. I was surprised how fast this was.

With[{p = Select[Tuples[Range[0, 300], {2}], PrimeQ[2^#[[1]] 3^#[[2]] + 1] &]}, 
 Graphics[Tooltip[Point[#], #] & /@ p, PlotLabel -> "Pierpont primes" ]]

enter image description here

POSTED BY: Ed Pegg
2 Replies
p = Select[Tuples[Range[0, 5], {3}], PrimeQ[2^#[[1]] 3^#[[2]] + 1] &]

enter image description here

POSTED BY: Simon Cadrin
With[{p =  Select[Tuples[Range[0, 30], {3}],  PrimeQ[2^#[[1]] 3^#[[2]] + 1] &]}, 
 Graphics3D[Tooltip[Point[#], #] & /@ p, 
  PlotLabel -> "Pierpont primes"]]

enter image description here

POSTED BY: Simon Cadrin
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract