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,2

Links

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

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 *)

Crossrefs

Cf. A067581, A276392.

Sequence in context: A347769 A004841 A293715 * A193457 A161950 A111470

Adjacent sequences: A276390 A276391 A276392 * A276394 A276395 A276396

Keyword

nonn

Author

N. J. A. Sloane, Sep 08 2016

Status

approved