OFFSET
1,1
EXAMPLE
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Dmitry Kamenetsky, Jul 10 2019
STATUS
approved