The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A171073 Smallest positive integer a(n) not yet in the sequence and sharing no digit with n, (n-1) or (n+1) in its decimal representation. 0
 3, 4, 1, 2, 7, 8, 5, 6, 22, 23, 9, 40, 50, 20, 27, 24, 25, 26, 33, 34, 35, 44, 10, 11, 13, 14, 15, 16, 17, 45, 46, 47, 18, 12, 19, 21, 29, 41, 51, 28, 36, 5, 56, 60, 30, 31, 32, 52, 37, 38, 39, 48, 61, 62, 70, 42, 43, 63, 71, 72, 49, 54, 57, 77, 73, 80, 53, 100, 111, 58, 59, 64, 65 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS MATHEMATICA f[s_List] := Block[{k = 1, len = Length@s}, id = Union@ Flatten[ IntegerDigits /@ {len, len + 1, len + 2}]; While[ MemberQ[s, k] || Intersection[id, IntegerDigits@k] != {}, k++ ]; Append[s, k]]; Nest[f, {}, 73] (* Robert G. Wilson v, Sep 25 2010 *) CROSSREFS Cf. A171072. - Robert G. Wilson v, Sep 25 2010 Sequence in context: A021971 A260822 A256008 * A021297 A124909 A281098 Adjacent sequences:  A171070 A171071 A171072 * A171074 A171075 A171076 KEYWORD nonn,base,fini AUTHOR N. J. A. Sloane, Sep 06 2010, based on an email from Eric Angelini, Jun 30 2010 EXTENSIONS a(22) inserted, a(25) and a(26) corrected, etc. by Robert G. Wilson v, Sep 25 2010 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 18 04:41 EDT 2021. Contains 345098 sequences. (Running on oeis4.)