read `KW.txt`:
L[5]:=[seq(BetterCount(5,i),i=1..1000)];