10 INPUT N
20 FOR I=1 TO N:FOR J=2 TO INT(SQR(I))
40 IF IMODJ=0 GOTO 100 ELSE NEXT J
50 M$=BIN$(I):PRINT I;M$:L=0
60 FOR K=1 TO LEN(M$):IF MID$(M$,K,1)="1" THEN L=L+1
80 NEXTK
90 IF L>R THEN R=L:R1=I
100 NEXT I
110 PRINT R;R1