OFFSET
1,1
COMMENTS
EXAMPLE
PROG
(PARI) {stop=1000; for(k=1, 50000, m=k; c=0; p=1; while(c<stop&&p==1, n=m; rev=0; while(n>0, d=divrem(n, 10); n=d[1]; rev=10*rev+d[2]); if(m==k&&rev!=m, p=0); if(m>k&&rev==m, p=0); m=m+rev; c++); if(c==stop&&p==1, print1(k, ", ")))}
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, May 06 2002
STATUS
approved