A106014 Primes p such that 100*p +- 3 are primes.

11, 13, 29, 53, 59, 127, 241, 293, 307, 409, 419, 631, 853, 907, 967, 1063, 1091, 1093, 1123, 1201, 1429, 1459, 1663, 1789, 1861, 2129, 2281, 2719, 2801, 2803, 3049, 3167, 3301, 3307, 3331, 3833, 3863, 3889, 3931, 4201, 4217, 4231, 4283, 4451, 4519, 4621

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

select(t -> isprime(t) and isprime(100*t-3) and isprime(100*t+3),
[seq(i, i=3...10000, 2)]); # Robert Israel, Nov 11 2018

Mathematica

Select[Prime[Range[400]], PrimeQ[100#+3]&&PrimeQ[100#-3]&]

Prog

(Magma) [p: p in PrimesUpTo(100000)| IsPrime(100*p-3) and IsPrime(100*p+3)]; // Vincenzo Librandi, Nov 13 2010

Crossrefs

Sequence in context: A045466 A158759 A107645 * A261371 A289490 A056251

Adjacent sequences: A106011 A106012 A106013 * A106015 A106016 A106017

Keyword

nonn

Author

Zak Seidov, May 05 2005

Status

approved