|
%I #10 Mar 28 2023 12:40:49
%S 3,6,36,66,666,22366,333336,23232336,336662326,2232222336,3263633236,
%T 6266233326,262322266326,266633626626,2263263223266,36226633633326,
%U 66333362366236266,3236622262232626626666,3322222636222323322336,2332636666226262326336266
%N Triangular numbers composed of digits {2,3,6}.
%H Giovanni Resta, <a href="http://www.numbersaplenty.com/tr/tr236.html">Tridigital Triangular Numbers</a>.
%F a(n) = A000217(A119155(n)). - _Tyler Busby_, Mar 28 2023
%t 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 *)
%Y Cf. A000217, A058458, A119155. See A119033 for a table of cross-references.
%K nonn,base
%O 1,1
%A _Giovanni Resta_, May 10 2006
%E a(20) from _Tyler Busby_, Mar 28 2023
|
