OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
For p=3, 3^8-8=6553 is prime, which adds 3 to the sequence.
For p=7, 7^8-8=5764793 is prime, which adds 7 to the sequence.
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p^8-8], AppendTo[lst, p]], {n, 7!}]; lst
Select[Prime[Range[800]], PrimeQ[(#^8 - 8)]&] (* Vincenzo Librandi, Apr 15 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(5000) | IsPrime(p^8-8)]; // Vincenzo Librandi, Apr 15 2013
(PARI) for(n=1, 500, m=prime(n); if(isprime(m^8 -8), print1(m, ", "))) \\ G. C. Greubel, Jul 28 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 31 2009
EXTENSIONS
Mathematica code corrected by R. J. Mathar, Aug 01 2009
STATUS
approved