$vec = ''; 
$n=-1; 
vec( $vec, $n+=$_, 1 ) = 1 for 2 .. 17; 
print unpack 'b*', $vec;;
01001000100001000001000000100000001000000001000000000100000000001000000000001000000000000100000000000001000000000000001000000000000000100000000000000001000...
# 2  5   9    14    20     27      35       44        54         65          77           90            104            119             135              152