This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A276393 #8 Feb 22 2017 08:25:31 %S A276393 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, %T A276393 48,50,52,54,55,57,59,61,63,65,66,68,70,72,74,75,77,79,81,83,85,86,88, %U A276393 90,92,94,95,97,99,101,103,105,107,108,110 %N A276393 Positions of records in A067581. %H A276393 Rémy Sigrist, <a href="/A276393/b276393.txt">Table of n, a(n) for n = 1..19705</a> %t A276393 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 *) %Y A276393 Cf. A067581, A276392. %K A276393 nonn %O A276393 1,2 %A A276393 _N. J. A. Sloane_, Sep 08 2016