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

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A063662 Starting with 0, select the next number having in decimal notation at least one common digit. 3
0, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 27, 28, 29, 32, 33, 34, 35, 36, 37, 38, 39, 43, 44, 45, 46, 47, 48, 49, 54, 55, 56, 57, 58, 59, 65, 66, 67, 68, 69, 76, 77, 78, 79, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 109, 110, 111, 112 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

a(n+1) = a(n)+1 unless a(n) is of the form d*10^k - 1, 1<=d<=8. - Robert Israel, Sep 21 2016

LINKS

Harry J. Smith, Table of n, a(n) for n=0,...,1000

MAPLE

A[0]:= 0: S:= {0}:

for n from 1 to 1000 do

  for x from A[n-1]+1 do

    Sx:= convert(convert(x, base, 10), set);

    if Sx intersect S <> {} then break fi;

  od;

  A[n]:= x;

  S:= Sx;

od:

seq(A[i], i=0..1000); # Robert Israel, Sep 21 2016

MATHEMATICA

NestList[Block[{k = # + 1}, While[! IntersectingQ[IntegerDigits@ k, IntegerDigits@ #], k++]; k] &, 0, 66] (* Michael De Vlieger, Sep 20 2016 *)

PROG

(PARI) XhasD(x, d)= { local(f); while (x>9, f=x-10*(x\10); if (f==d, return(1)); x\=10); return(x==d) } { a=0; for (n=0, 1000, if (n, for (m=a + 1, 10*a + 10, b=0; for (d=0, 9, if (XhasD(a, d) && XhasD(m, d), a=m; b=true; break)); if (b, break) ) ); write("b063662.txt", n, " ", a) ) } \\ Harry J. Smith, Aug 27 2009

(Haskell)

a063662_list = iterate a063660 0  -- Reinhard Zumkeller, Jan 15 2013

CROSSREFS

A063662(0) = 0 and A063662(n + 1) = A063660(A063662(n))

Sequence in context: A175405 A225683 A256556 * A069715 A248499 A008716

Adjacent sequences:  A063659 A063660 A063661 * A063663 A063664 A063665

KEYWORD

easy,nonn,base

AUTHOR

Reinhard Zumkeller, Jul 25 2001

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 January 16 23:44 EST 2019. Contains 319206 sequences. (Running on oeis4.)