OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
6857 = prime(882) = 19^3 - 2, 19 = prime(8) is 1st term.
29789 = prime(3228) = 31^3 - 2, 31 = prime(11) is 2nd term.
MATHEMATICA
Select[Prime[Range[10000]], PrimeQ[#^3 - 2] &] (* Vincenzo Librandi, Mar 20 2014 *)
PROG
(Sage) a = list(p for p in primes(10000) if is_prime(p**3-2)) # D. S. McNeil, May 25 2010
(Magma) [p: p in PrimesUpTo(5000) | IsPrime(p^3-2)]; // Vincenzo Librandi, Nov 17 2010
(PARI) list(lim)=my(v=List()); forprime(p=2, lim, if(isprime(p^3-2), listput(v, p))); Vec(v) \\ Charles R Greathouse IV, Feb 08 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ulrich Krug (leuchtfeuer37(AT)gmx.de), May 24 2010
EXTENSIONS
Base tag removed by D. S. McNeil, May 25 2010
STATUS
approved