set i [set j 0];while {[incr i]<100} {incr j [expr [lsearch -exact {0 1 3 5 7 9 11 33 55 77 99} $i]>0];puts "N=$i,A=$j"}