|
%I #9 Sep 08 2022 08:46:08
%S 2,7,11,13,47,101,107,151,163,167,251,257,401,443,467,521,571,641,653,
%T 673,797,907,911,971,983,997,1013,1151,1153,1181,1187,1223,1231,1277,
%U 1291,1303,1361,1433,1481,1511,1597,1637,1723,1741,1811,1951,2027,2081,2083,2141,2287,2311
%N Primes p such that 2*p^3 - 3 is also prime.
%H Vincenzo Librandi, <a href="/A243630/b243630.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2500]], PrimeQ[2 #^3 - 3] &]
%o (Magma) [p: p in PrimesUpTo(2500) | IsPrime(2*p^3 - 3)];
%Y Cf. A063908, A023204, A153507, A174363, A243595.
%K nonn,easy,less
%O 1,1
%A _Vincenzo Librandi_, Jun 08 2014
|
