cp's OEIS Frontend

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.

A276393 Positions of records in A067581.

This page as a plain text file.
%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