Hi ,
I am able to resolve with minor change. Please refer below.
q)sieve1:{n:1+y?1b;(x,n;y and count[y]#10b where(n-1),1)}.
q)sieve2:{n:1+y?1b;(x,n;@[y;1_-[;1]n*til 1+count[y]div n;:;0b])}.
q)es:{[s;N]{x,1+where y}. ({any z#y}[;;floor sqrt N].)s/(2;0b,1_N#10b)}
q)es[sieve1;100]
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
q)es[sieve2;100]
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97