OFFSET
1,1
EXAMPLE
MATHEMATICA
divQ[s_, n_] := AnyTrue[s, MemberQ[s, #] && MemberQ[s, n/#] &]; tpmidQ[n_]:= AllTrue[n + {-1, 1}, PrimeQ]; s={}; ind={}; c=0; Do[If[tpmidQ[n], c++; If[divQ[s, n], AppendTo[ind, c]]; AppendTo[s, n]], {n, 1, 10^5}]; ind (* Amiram Eldar, Jul 11 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Dmitry Kamenetsky, Jul 10 2019
EXTENSIONS
More terms from Jinyuan Wang, Jul 11 2019
STATUS
approved