A243630 Primes p such that 2*p^3 - 3 is also prime.
2, 7, 11, 13, 47, 101, 107, 151, 163, 167, 251, 257, 401, 443, 467, 521, 571, 641, 653, 673, 797, 907, 911, 971, 983, 997, 1013, 1151, 1153, 1181, 1187, 1223, 1231, 1277, 1291, 1303, 1361, 1433, 1481, 1511, 1597, 1637, 1723, 1741, 1811, 1951, 2027, 2081, 2083, 2141, 2287, 2311
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(2500) | IsPrime(2*p^3 - 3)];
-
Mathematica
Select[Prime[Range[2500]], PrimeQ[2 #^3 - 3] &]