%I #13 Apr 07 2021 20:36:35
%S 12,13,14,15,16,17,18,19,23,24,25,26,27,28,29,34,35,36,37,38,39,45,46,
%T 47,48,49,56,57,58,59,67,68,69,78,79,89,102,103,104,105,106,107,108,
%U 109,112,113,114,115,116,117,118,119,122,123,124,125,126,127,128,129
%N Numbers n such that Reversal(n) > n.
%H T. D. Noe, <a href="/A071589/b071589.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[200], # < FromDigits[Reverse[IntegerDigits[#]]] &] (* _T. D. Noe_, Mar 14 2012 *)
%o (PARI) for(i=2,300,n=(i); s=ceil(log(n)/log(10)); if((sum(i=0,s,10^(s-i-1)*(floor(n/10^i*1.)-10*floor(n/10^(i+1)*1.))))>i,print1((i),",")))
%Y Cf. A004086 (digit reversal), A071590 (reversal < n), A002113 (reversal = n).
%Y Cf. A161601 (binary reversal > n).
%K base,easy,nonn
%O 1,1
%A _Benoit Cloitre_, Jun 01 2002
|