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 Sc)
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[s[[-2;; ]], {k}]], 3, 1]), k++]; k]; Array[a, 90] (* Giorgos Kalogeropoulos, May 14 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Mar 10 2014
STATUS
approved