A174955 Lesser of twin primes p1 such that p1*p2+-6 are prime numbers.

5, 11, 1061, 2111, 3371, 3851, 5867, 9461, 12251, 21491, 22037, 22481, 24917, 26681, 28277, 32141, 42641, 43607, 48731, 56477, 59417, 59627, 67271, 67757, 70487, 77417, 86531, 87221, 91127, 104147, 113621, 115151, 116687, 119291, 121577

Offset

1,1

Comments

5*7=35+-6 -> primes,..

Links

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

Mathematica

lst={}; Do[p1=Prime[n]; p2=p1+2; If[PrimeQ[p2]&&PrimeQ[p1*p2+6]&&PrimeQ[p1*p2-6], (*Print[p1]; *)AppendTo[lst, p1]], {n, 8!}]; lst
Select[Partition[Prime[Range[12000]], 2, 1], #[[2]]-#[[1]]==2&&AllTrue[Times@@#+{6, -6}, PrimeQ]&][[;; , 1]] (* Harvey P. Dale, May 04 2026 *)

Crossrefs

Cf. A001359, A174913, A174915, A174916, A174917, A174920, A174922

Sequence in context: A374091 A046957 A174957 * A224095 A370664 A130735

Adjacent sequences: A174952 A174953 A174954 * A174956 A174957 A174958

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 02 2010

Status

approved