A163387 Primes p such that 5(p-5)-1 and 5(p-5)+1 are twin primes.

11, 17, 41, 53, 59, 89, 137, 167, 251, 263, 269, 431, 467, 563, 599, 677, 683, 809, 857, 1061, 1109, 1181, 1223, 1259, 1277, 1319, 1361, 1523, 1607, 1889, 1931, 1949, 2111, 2237, 2393, 2399, 2741, 3251, 3371, 3617, 3821, 3833, 3881, 4133, 4217, 4373, 4679

Offset

1,1

Comments

In other words, primes p such that 5*(p-5) is member of A014574. [From Omar E. Pol, Aug 05 2009]

Links

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

Example

5*(11-5)=30, 5*(17-5)=60,...

Mathematica

f1[n_]:=If[PrimeQ[n-1]&&PrimeQ[n+1], True, False]; f2[n_]:=If[f1[n]&&PrimeQ[n/5+5], True, False]; lst={}; Do[If[f2[n], AppendTo[lst, n/5+5]], {n, 8!}]; lst
Select[Prime[Range[700]], AllTrue[5(#-5)+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 18 2015 *)

Crossrefs

Cf. A163385, A163386

Cf. A014574, A163388 [From Omar E. Pol, Aug 05 2009]

Sequence in context: A291374 A181421 A290530 * A147253 A201476 A057473

Adjacent sequences: A163384 A163385 A163386 * A163388 A163389 A163390

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Jul 25 2009

Extensions

Definition clarified by Omar E. Pol, Aug 05 2009

Status

approved