A119100 Numbers k such that the k-th triangular number contains only digits {1,2,4}.
1, 6, 66, 666, 1686, 2913, 6666, 9406, 15761, 66666, 666666, 6666666, 47140518, 66666666, 206951318, 666666666, 1512753193, 6666666666, 9406509886, 66666666666, 297026066681, 666666666666, 6666666666666, 66666666666666
Offset: 1
Links
- G. Resta, Tridigital Triangular Numbers
Programs
-
Magma
[n: n in [1..2*10^7] | Set(Intseq(n*(n+1) div 2)) subset [1,2,4]]; // Vincenzo Librandi, Feb 24 2016
-
Mathematica
Select[Range[2 10^7], Complement[IntegerDigits[# (# + 1)/2], {1, 2, 4}] == {} &] (* Vincenzo Librandi, Feb 24 2016 *)
Comments