A177104 Primes p such that 2*p^3-1 is also prime.
3, 31, 43, 61, 139, 181, 199, 223, 241, 331, 373, 421, 523, 631, 733, 859, 991, 1033, 1153, 1213, 1423, 1453, 1549, 1741, 1873, 1879, 1951, 2203, 2239, 2269, 2311, 2371, 2539, 2689, 2713, 2719, 2851, 3001, 3019, 3163, 3229, 3271, 3343, 3361, 3391, 3541
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(10000)| IsPrime(2*p^3-1)];
-
Mathematica
Select[Prime[Range[500]], PrimeQ[2 #^3 - 1]&] (* Vincenzo Librandi, Apr 17 2013 *)