|
%I #26 May 05 2014 05:02:41
%S 0,1,2,3,4,5,6,7,8,9,10,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,
%T 28,29,30,31,32,34,35,36,37,38,39,40,41,42,43,45,46,47,48,49,50,51,52,
%U 53,54,56,57,58,59,60,61,62,63,64,65,67,68,69,70,71,72,73,74,75,76,78,79,80,81,82,83,84,85,86,87,89,90,91,92,93,94,95,96,97,98,100,101,102,103,104,105,106,107,108,109,120
%N Numbers in which the two leading (most significant) digits are distinct.
%C More than the usual number of terms are displayed in order to show the difference from some closely-related sequences.
%H Reinhard Zumkeller, <a href="/A241158/b241158.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o a241158 n = a241158_list !! (n-1)
%o a241158_list = filter (f . show) [0..] where
%o f [_] = True; f (d : d' : _) = d /= d'
%o -- _Reinhard Zumkeller_, May 02 2014
%Y Cf. A010784, A043096, A241157.
%K nonn,base
%O 1,3
%A _N. J. A. Sloane_, Apr 18 2014
|
