OFFSET
1,1
LINKS
Zak Seidov and Giovanni Resta, Table of n, a(n) for n = 1..100 (first 50 terms from Zak Seidov)
EXAMPLE
MATHEMATICA
nv=tg=20; T = 0 Range[nv]; n=0; p=q=3; b=c=2; While[tg>0, p = NextPrime[p]; n++; {a, b, c, q} = {b, c, p-q, p}; If[b <= 2 nv && a>b<c && T[[b/2]] == 0, T[[b/2]] = n; tg--]]; T (* Giovanni Resta, May 13 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 13 2017
STATUS
approved