A309066 - OEIS

%I #23 Jul 16 2019 11:51:37

%S 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,

%T 30,31,32,33,35,36,37,38,39,40,43,44,45,46,48,49,51,53,57,59,61,63,65,

%U 66,68,69,70,71,73,75,77,78,79,81,85,86,87,88,89,90,91,92,93,94,95

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

%e A053319(2) = 6 and 6 is in A014574, so a(1) = 2.

%e A053319(3) = 6 and 6 is in A014574, so a(2) = 3.

%e A053319(4) = 12 and 12 is in A014574, so a(3) = 4.

%t 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 *)

%Y Cf. A014574, A053319, A309067.

%K nonn

%O 1,1

%A _Dmitry Kamenetsky_, Jul 10 2019