for(;a++<999;){for(c=6;c;)b[(8*a-1)*4^--c]=1;if(b[a])a}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page