OFFSET
1,1
COMMENTS
One less than the associated entry in A024905.
EXAMPLE
If n=125 then 7*n + 8 = 883 (prime).
MAPLE
A111249:=n->`if`(isprime(7*n+8), n, NULL): seq(A111249(n), n=1..10^3); # Wesley Ivan Hurt, Feb 13 2017
MATHEMATICA
Select[Range[1, 351, 2], PrimeQ[7#+8]&] (* Harvey P. Dale, Sep 11 2016 *)
PROG
(Magma) [n: n in [0..100000] | IsPrime(7*n+8)] // Vincenzo Librandi, Nov 13 2010
(PARI) is(n)=isprime(7*n+8) \\ Charles R Greathouse IV, Feb 14 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Parthasarathy Nambi, Oct 31 2005
STATUS
approved