C++ :

#include<iostream>
using namespace std;
int a[5005]={};
bool huiwen(int x[],int len);
bool jinzhi(int x[],int v,int j);
int main() {
    int i,j,k,l=0,n,s;
    cin>>n>>s;
    i=s+1;
    while(true) {
		if(l==n) break;
		k=0;
        for(j=2;j<=10;j++){
            if(jinzhi(a,i,j)) {
                k++;
            }
            if(k>=2) {
                break;
            }
        }
        if(k>=2) {
            cout<<i<<endl;
            l++;
        }
        i++;
	}
    return 0;
}
bool jinzhi(int x[],int v,int j){
    int len=0;
    while(v!=0){
        x[len]=v%j;
        v=v/j;
        len++;
    }
    return huiwen(x,len);
}
bool huiwen(int x[],int len) {
    int i;
    for(i=0;i<len/2;i++){
        if(x[i]!=x[len-1-i])
            return false;
    }
    return true;
}

Pascal :

var n,s,n1:longint;
    a:array[1..15] of integer;
  
function f(len:longint):boolean; 
var i:longint;
begin
  f:=true;
  for i:=1 to len div 2 do if a[i]<>a[len-i+1] then  begin f:=false;break;end;
end;
  
procedure main;
var i,ans,m,len:longint;
begin
  n1:=0;
  while n1<n do
    begin
      inc(s); ans:=0; 
      for i:=2 to 10 do 
        begin
          len:=0; m:=s;
          while m<>0 do 
            begin
              inc(len);
              a[len]:=m mod i;
              m:=m div i;
            end;
          if f(len) then inc(ans); 
          if ans>=2 then break;
        end;
      if ans>=2 then 
         begin inc(n1); writeln(s); end;
    end;
end;
  
begin
  readln(n,s);
  main;
end.