A276392 - OEIS

%I #9 Feb 22 2017 08:25:46

%S 0,1,2,3,4,5,6,7,8,9,10,22,24,25,27,28,30,33,34,40,41,42,44,45,46,47,

%T 50,51,52,53,60,61,62,63,64,66,70,71,72,73,74,80,81,82,83,84,85,90,91,

%U 92,93,94,100,101,102,103,104,105,106,222,223,224,225,226,227,228,229,240,242,244,245

%N Records in A067581.

%H Rémy Sigrist, <a href="/A276392/b276392.txt">Table of n, a(n) for n = 1..19705</a>

%H Rémy Sigrist, <a href="/A276392/a276392.cpp.txt">C++ program for A276392</a>

%t Union@ FoldList[Max, 0, #] &@ Nest[Function[s, Block[{k = 1, id = IntegerDigits@ s[[-1]]}, While[MemberQ[s, k] || Intersection[id, IntegerDigits@ k] != {}, k++]; Append[s, k]]], {1}, 160] (* _Michael De Vlieger_, Feb 22 2017, after _Robert G. Wilson v_ at A067581 *)

%Y Cf. A067581, A276393.

%K nonn

%O 1,3

%A _N. J. A. Sloane_, Sep 08 2016