A119034 Numbers k such that the k-th triangular number contains only digits {0,1,2}.
1, 4, 6, 15, 20, 66, 141, 200, 473, 666, 2000, 6666, 14840, 15620, 20000, 49193, 66666, 154926, 200000, 494006, 666666, 2000000, 4939858, 6666666, 20000000, 66666666, 200000000, 200105073, 651307933, 666666666, 1563400141
Offset: 1
Links
- G. Resta, Tridigital Triangular Numbers
Programs
-
Magma
[n: n in [1..2*10^7] | Set(Intseq(Binomial(n+1, 2))) subset [0, 1, 2]]; // Vincenzo Librandi, Oct 07 2015
-
Mathematica
Select[Range[2 10^7], Complement[IntegerDigits[Binomial[# + 1, 2]], {0, 1, 2}] == {}&] (* Vincenzo Librandi, Oct 07 2015 *)
Comments