A122724 Primes p such that (2p)! - 1 is also prime.
2, 3, 7, 19, 47, 83, 487
Offset: 1
Programs
-
Mathematica
Select[Prime[Range[100]],PrimeQ[(2#)!-1]&] (* James C. McMahon, Nov 09 2024 *)
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Select[Prime[Range[100]],PrimeQ[(2#)!-1]&] (* James C. McMahon, Nov 09 2024 *)
Comments