OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p^6-6], AppendTo[lst, p]], {n, 2*7!}]; lst
Select[Prime[Range[1000]], PrimeQ[(#^6 - 6)]&] (* Vincenzo Librandi, Apr 15 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(6000) | IsPrime(p^6-6)]; // Vincenzo Librandi, Apr 15 2013
(PARI) for(n=1, 500, m=prime(n); if(isprime(m^6 -6), print1(m, ", "))) \\ G. C. Greubel, Jul 28 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 31 2009
EXTENSIONS
Comment moved to the examples by R. J. Mathar, Oct 21 2009
STATUS
approved