OFFSET
1,2
LINKS
Giovanni Resta, Tridigital Triangular Numbers
FORMULA
MATHEMATICA
Rest[Select[FromDigits/@Tuples[{0, 1, 8}, 12], OddQ[Sqrt[8#+1]]&]] (* or *) Select[Accumulate[Range[1328*10^3]], SubsetQ[{0, 1, 8}, IntegerDigits[ #]]&](* Harvey P. Dale, May 06 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, May 10 2006
EXTENSIONS
a(23)-a(25) from Tyler Busby, Mar 11 2023
STATUS
approved