A239216 The sequence S = a(1), a(2), ... is defined by a(1)=1, if d,e,f are consecutive digits then we do not have d >= e >= f, and S is always extended with the smallest integer not yet present in S.

1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 13, 14, 15, 16, 17, 18, 19, 23, 24, 25, 26, 27, 28, 29, 34, 35, 36, 37, 38, 39, 45, 46, 47, 48, 49, 56, 57, 58, 59, 67, 68, 69, 78, 79, 89, 120, 10, 11, 20, 21, 22, 30, 31, 32, 33, 40, 41, 42, 43, 44, 50, 51, 52, 53, 54, 55, 60

Offset

1,2

Comments

Computed by Lars Blomberg.

References

Eric Angelini, Posting to Sequence Fans Mailing List, Sep 28 2013

Links

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

Eric Angelini, Less than <, Equal to =, Greater than > (see sequence Ss)

Eric Angelini, Less than <, Equal to =, Greater than > [Cached copy, with permission of the author]

Mathematica

a[1]=1; a[n_]:=a[n]=Block[{k=1}, While[MemberQ[s=Array[a, n-1], k]||Or@@(#>=#2>=#3&@@@Partition[Flatten[IntegerDigits/@Join[Last@s, {k}]], 3, 1]), k++]; k]; Array[a, 67] (* Giorgos Kalogeropoulos, May 13 2022 *)

Crossrefs

The sequences in this family are given in A239083-A239086, A239136-A239139, A239087-A239090, A239215-A239218, A239235.

Sequence in context: A082757 A239089 A032881 * A032848 A009993 A190218

Adjacent sequences: A239213 A239214 A239215 * A239217 A239218 A239219

Keyword

nonn,base

Author

Michel Marcus, Mar 12 2014

Status

approved