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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A286890 a(n) is the least positive integer not yet in the sequence that shares its largest digit with that of a(n-1); a(1)=1. 4
1, 10, 11, 12, 2, 20, 21, 22, 23, 3, 13, 30, 31, 32, 33, 34, 4, 14, 24, 40, 41, 42, 43, 44, 45, 5, 15, 25, 35, 50, 51, 52, 53, 54, 55, 56, 6, 16, 26, 36, 46, 60, 61, 62, 63, 64, 65, 66, 67, 7, 17, 27, 37, 47, 57, 70, 71, 72, 73, 74, 75, 76, 77, 78, 8, 18, 28, 38, 48, 58, 68, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 9, 19, 29, 39, 49, 59, 69, 79, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 109, 119, 129 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

After a(81) = 89, each term must contain a 9.

Unlike A184992, not a permutation of the positive integers, but contains all numbers from 1 to 99.

LINKS

Jean-Marc Falcoz and Eric Angelini, Table of n, a(n) for n = 1..5001

EXAMPLE

Gathering intervals of consecutive integers, sequence begins as follows:

1,                               10..12,

2,                               20..23,

3, 13,                           30..34,

4, 14, 24,                       40..45,

5, 15, 25, 35,                   50..56,

6, 16, 26, 36, 46,               60..67,

7, 17, 27, 37, 47, 57,           70..78,

8, 18, 28, 38, 48, 58, 68,       80..89,

9, 19, 29, 39, 49, 59, 69, 79,   90..99,

109, 119, 129, ...

MATHEMATICA

a = {1}; Do[k = 2; While[Nand[! MemberQ[a, k], MemberQ[IntegerDigits[k], Max@ IntegerDigits[a[[n - 1]] ]]], k++]; AppendTo[a, k], {n, 2, 102}]; a (* Michael De Vlieger, Jul 22 2017 *)

CROSSREFS

Cf. A184992.

Sequence in context: A063671 A184992 A162501 * A262323 A262412 A299981

Adjacent sequences:  A286887 A286888 A286889 * A286891 A286892 A286893

KEYWORD

nonn,base

AUTHOR

Enrique Navarrete, Jul 22 2017

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 24 22:26 EDT 2019. Contains 322446 sequences. (Running on oeis4.)