A089559 Nonnegative numbers n such that 2*n + 15 is prime.
1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 22, 23, 26, 28, 29, 32, 34, 37, 41, 43, 44, 46, 47, 49, 56, 58, 61, 62, 67, 68, 71, 74, 76, 79, 82, 83, 88, 89, 91, 92, 98, 104, 106, 107, 109, 112, 113, 118, 121, 124, 127, 128, 131, 133, 134, 139, 146, 148, 149, 151, 158, 161, 166
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
GAP
Filtered([0..200], k-> IsPrime(2*k+15) ); # G. C. Greubel, May 22 2019
-
Magma
[n: n in [0..200] | IsPrime(2*n+15)]; // Vincenzo Librandi, Apr 28 2014
-
Mathematica
(Prime[Range[7,100]]-15)/2 (* Vladimir Joseph Stephan Orlovsky, Feb 08 2010 *) Select[Range[0, 200], PrimeQ[2 # + 15] &] (* Vincenzo Librandi, Apr 28 2014 *)
-
PARI
is(n)=isprime(2*n+15) \\ Charles R Greathouse IV, Apr 28 2015
-
Sage
[n for n in (0..200) if is_prime(2*n+15) ] # G. C. Greubel, May 22 2019
Formula
a(n) = A086303(n)/2.
Extensions
Definition clarified by Zak Seidov, Jul 11 2014