|
%I #9 Jan 29 2014 07:48:50
%S 10,20,30,40,50,60,70,80,90,100,110,21,31,41,51,61,71,81,91,200,210,
%T 220,32,42,52,62,72,82,92,300,310,320,330,43,53,63,73,83,93,400,410,
%U 420,430,440,54,64,74,84,94,500,510,520,530,540,550,65,75,85,95
%N Smallest number greater than n with exactly the same digits as n in decimal representation, a(n)=10*n if no such number exists.
%C A004186(a(n)) = A004186(n) or A004186(a(n)) = 10*A004186(n).
%H Reinhard Zumkeller, <a href="/A194233/b194233.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o import Data.List (find); import Data.Maybe (fromMaybe)
%o a194233 n =
%o fromMaybe (10*n) $ find (== a004186 n) $ map a004186 [n+1..10*n]
%K nonn,base,look
%O 1,1
%A _Reinhard Zumkeller_, Aug 19 2011
|
