5 DEFINT I,J,N,M,Y:INPUT N,M
10 FOR I=1 TO N:Y=0:A$=STR$(I)
20 FOR J=2 TO LEN(A$):Y=Y+VAL(MID$(A$,J,1))^2:NEXTJ
30 IF Y=M THEN PRINTI;:NEXTI ELSE NEXTI
40 END