OFFSET
0,2
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..1000
PROG
(PARI) \\ here b(n) is A125688.
b(n, brk=oo)={my(s=0); forprime(p=2, n\3, if((n-p)%2==0, forprime(q=p+1, (n-p)/2-1, if(isprime(n-p-q), s++; if(s>=brk, return(-1))) ))); s}
sols(n, lim, f)={my(u=vector(n), r=n); for(i=1, lim, my(t=f(i)); if(t>0 && t<=#u && !u[t], u[t]=i; r--; if(r==0, return(u)))); my(m=1); while(m<=#u && u[m], m++); u[1..m-1]}
{ my(nn=100); nn++; sols(nn, 10^4, i->b(i, nn)+1) } \\ Andrew Howroyd, Jan 06 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 30 2006
EXTENSIONS
Terms a(40) and beyond from Andrew Howroyd, Jan 06 2020
STATUS
approved