uses crt;
var n,i,d: integer;
function dx(n: integer): boolean;
var p,s: integer;
    m: boolean;
begin
    p:=n;
    s:=0;
    while n<>0 do begin
        s:=s*10+n mod 10;
        n:=n div 10;
    end;
    if s=p then m:=true
    else m:=false;
    exit(m);
end;
begin
clrscr;
    readln(n);
    d:=0;
    for i:=1 to n-1 do if dx(i) then d:=d+1;
    writeln(d);
    for i:=1 to n-1 do if dx(i) then write(i,' ');
    readln
end.

uses crt;
var n,i,t,x,y,dem:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
t:=0;
x:=i;
while x<>0 do
begin
t:=t*10+x mod 10;
x:=x div 10;
end;
if t=i then
begin
write(i,' ');
dem:=dem+1;
end;
end;

writeln(dem);
readln;
end.