$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

##</code><code>##

wrog  1: 0
wrog  2: 14
wrog  3: 5
wrog  4: 14
wrog  5: 14
wrog  6: 20
wrog  7: 27
wrog  8: 35
wrog  9: 44
wrog  10: 54
wrog  11: 65
wrog  12: 77
wrog  13: 90
wrog  14: 90
wrog  15: 90
wrog  16: 90
wrog  17: 90