OFFSET
1,1
LINKS
Giovanni Resta, Tridigital Triangular Numbers.
FORMULA
MATHEMATICA
Select[Flatten[Table[FromDigits/@Tuples[{2, 3, 6}, n], {n, 10}]], OddQ[Sqrt[8#+1]]&] (* The program generates the first 12 terms of the sequence. To generate more, increase the constant after "n, " but the program will take longer to run. *) (* Harvey P. Dale, Apr 18 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, May 10 2006
EXTENSIONS
a(20) from Tyler Busby, Mar 28 2023
STATUS
approved