A309066 Integers m such that A053319(m) is a term in A014574.

2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 26, 27, 29, 30, 31, 32, 33, 35, 36, 37, 38, 39, 40, 43, 44, 45, 46, 48, 49, 51, 53, 57, 59, 61, 63, 65, 66, 68, 69, 70, 71, 73, 75, 77, 78, 79, 81, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95

Offset: 1

Author

Dmitry Kamenetsky, Jul 10 2019

Keywords

• nonn

Examples

			A053319(2) = 6 and 6 is in A014574, so a(1) = 2.
A053319(3) = 6 and 6 is in A014574, so a(2) = 3.
A053319(4) = 12 and 12 is in A014574, so a(3) = 4.
		

Crossrefs

Cf. A014574, A053319, A309067.

Programs

Mathematica

tpmidQ[n_] := And @@ PrimeQ[n + {-1, 1}]; ind = 0; tp = {4}; s = {}; Do[If[ tpmidQ[n], ind++; If[tpmidQ[n - tp[[-1]]], AppendTo[s, ind]]; AppendTo[tp, n]], {n, 6, 10^4}]; s (* Amiram Eldar, Jul 12 2019 *)