OFFSET
1,2
COMMENTS
Inserting the additional term a(0) = 2 would result in a so-called complete sequence after sorting. (The sorted sequence will then meet Brown's criterion.)
LINKS
Eric Weisstein's World of Mathematics, Brown's Criterion
Eric Weisstein's World of Mathematics, Complete Sequence
PROG
(PARI) /* a(n) for n>0 */
upto(lim)={my(a=[1], b=[]); for(i=1, lim, forsubset(#a, x, b=concat(b, [vecsum(vecextract(a, x))])); b=setminus(vecsort(b, , 8), a); for(j=1, #a, b=concat(b, [2*a[j]]); b=vecsort(b, , 8)); if(setsearch(b, i)==0, a=concat(a, [i]); a=vecsort(a, , 8)) ); a}
{ upto(200) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhandos Mambetaliyev, Jan 26 2020
EXTENSIONS
a(13)-a(14) from Hugo Pfoertner, Jan 27 2020
STATUS
approved