A246873 - OEIS

A246873

Primes p such that p - 2^2, p - 4^2 and p - 6^2 are all positive primes.

47, 83, 167, 227, 353, 383, 503, 677, 1013, 1217, 1487, 2393, 2693, 3947, 4973, 5003, 5843, 7577, 9887, 10337, 10667, 12437, 13163, 13187, 14087, 14423, 14783, 15683, 15923, 21017, 21503, 21803, 22067, 22307, 23057, 24107, 24113, 26717

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

Subsequence of A046132. - Michel Marcus, Sep 08 2014

LINKS

Zak Seidov, Table of n, a(n) for n = 1..1000

EXAMPLE

47, 43, 31 and 13 are primes.

MATHEMATICA

Select[Prime[Range[10, 3000]], AllTrue[#-{4, 16, 36}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 22 2019 *)

PROG

(PARI) select(p->isprime(p-4) && isprime(p-16) && isprime(p-36), primes(10000)) \\ Colin Barker, Sep 08 2014

CROSSREFS

Cf. A046132.

Sequence in context: A132255 A142041 A190799 * A033232 A146031 A272879

Adjacent sequences: A246870 A246871 A246872 * A246874 A246875 A246876

KEYWORD

nonn

AUTHOR

Zak Seidov, Sep 06 2014

STATUS

approved