A276393 Positions of records in A067581.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 16, 20, 22, 26, 28, 30, 32, 35, 37, 39, 41, 43, 45, 47, 48, 50, 52, 54, 55, 57, 59, 61, 63, 65, 66, 68, 70, 72, 74, 75, 77, 79, 81, 83, 85, 86, 88, 90, 92, 94, 95, 97, 99, 101, 103, 105, 107, 108, 110

Offset: 1

Author

N. J. A. Sloane, Sep 08 2016

Keywords

• nonn

Links

• Rémy Sigrist, Table of n, a(n) for n = 1..19705

Crossrefs

Cf. A067581, A276392.

Programs

Mathematica

Function[t, 1 + Flatten[Map[Position[t, #] &, Union@ FoldList[Max, 0, t]] /. {} -> {{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 *)