OFFSET
1,2
LINKS
Giovanni Resta, Tridigital Triangular Numbers.
FORMULA
MATHEMATICA
Select[Accumulate[Range[1000000]], Union[Drop[DigitCount[#], {1, 5, 2}]]=={0}&] (* Harvey P. Dale, Apr 16 2011 *)
Table[Select[FromDigits/@Tuples[{1, 3, 5}, n], OddQ[Sqrt[8#+1]]&], {n, 12}]//Flatten (* Harvey P. Dale, Aug 02 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, May 10 2006
EXTENSIONS
a(25)-a(27) from Tyler Busby, Mar 22 2023
STATUS
approved