OFFSET
0,3
COMMENTS
LINKS
E. Angelini, Successive weighing scales, post to the SeqFan list, June 14, 2010.
E. Angelini, Weighing scales and sequences.
PROG
(PARI) A293976_vec(n, A=List(1))=for(i=1, n\2, listput(A, A[#A]+A[i]); listput(A, A[#A]+1)); concat(0, Vec(A))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Oct 27 2017
STATUS
approved