A105549 Numbers n such that 2*prime(n)+/-n are primes.

1, 3, 15, 27, 33, 45, 81, 189, 213, 243, 249, 279, 285, 291, 381, 423, 567, 615, 675, 687, 705, 813, 819, 1023, 1071, 1077, 1137, 1173, 1347, 1425, 1431, 1503, 1737, 1779, 1785, 1815, 1857, 1989, 1995, 2049, 2067, 2163, 2241, 2373, 2565, 2841

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

bb={}; Do[If[PrimeQ[2 Prime[n]+n]&&PrimeQ[2 Prime[n]-n], bb=Append[bb, n]], {n, 1, 3000, 2}]; bb
Select[Range[3000], And@@PrimeQ[2Prime[#]+{#, -#}]&] (* Harvey P. Dale, Apr 07 2013 *)

Crossrefs

Sequence in context: A027179 A110703 A121250 * A080065 A017557 A147041

Adjacent sequences: A105546 A105547 A105548 * A105550 A105551 A105552

Keyword

nonn

Author

Zak Seidov, May 03 2005

Status

approved