login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Table of n, a(n) for n=1..73.

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 22 10:43 EDT 2019. Contains 322330 sequences. (Running on oeis4.)