OFFSET
1,2
COMMENTS
Computed by Lars Blomberg.
REFERENCES
Eric Angelini, Posting to Sequence Fans Mailing List, Sep 28 2013.
LINKS
Eric Angelini, Less than <, Equal to =, Greater than > (see sequence St)
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, 108] (* Giorgos Kalogeropoulos, May 13 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Marcus and N. J. A. Sloane, Mar 12 2014
STATUS
approved