OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[7n^3-1, {n, 1, 3500}], PrimeQ]
PROG
(Magma) [a: n in [1..400] | IsPrime(a) where a is 7*n^3-1]
(PARI) for(n=1, 1e3, if(isprime(t=7*n^3-1), print1(t", "))) \\ Charles R Greathouse IV, Nov 24 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Nov 24 2011
STATUS
approved