OFFSET
1,2
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = (A007522(n) - 7)/8, n >= 1.
MATHEMATICA
a = {}; Do[If[PrimeQ[8 n + 7], AppendTo[a, n]], {n, 0, 300}]; a
Select[Range[0, 200], PrimeQ[8#+7]&] (* Harvey P. Dale, Oct 10 2012 *)
PROG
(Magma) [n: n in [0..200] | IsPrime(8*n+7)]; // Vincenzo Librandi, Jun 25 2014
(PARI) is(n)=isprime(8*n+7) \\ Charles R Greathouse IV, Feb 17 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Apr 23 2008
STATUS
approved