A276392 Records in A067581.
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, 50, 51, 52, 53, 60, 61, 62, 63, 64, 66, 70, 71, 72, 73, 74, 80, 81, 82, 83, 84, 85, 90, 91, 92, 93, 94, 100, 101, 102, 103, 104, 105, 106, 222, 223, 224, 225, 226, 227, 228, 229, 240, 242, 244, 245
Offset: 1
Keywords
Links
- Rémy Sigrist, Table of n, a(n) for n = 1..19705
- Rémy Sigrist, C++ program for A276392
Programs
-
Mathematica
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 *)