OFFSET
0,3
COMMENTS
LINKS
Carole Dubois, Table of n, a(n) for n = 0..1244
E. Angelini, Successive weighing scales, post to the SeqFan list, June 14, 2010.
E. Angelini, Weighing scales and sequences.
PROG
(PARI) A293977_vec(n, A=vector(n+1), U=[0])={for(i=2, n, A[i]&&next; if(bittest(i, 0), A[i]=A[i-1]+A[i\2+1], for(k=U[1]+1, oo, setsearch(U, k)&&next; setsearch(U, k+A[i\2+1])&&next; A[i]=k; break)); U=setunion(U, [A[i]]); while(#U>1&&U[2]==U[1]+1, U=U[^1])); A}
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Oct 27 2017
STATUS
approved