|
%I #13 Sep 08 2022 08:45:25
%S 1,4,5,10,14,100,101,141,173,458,1000,1001,1005,1010,4475,10000,10001,
%T 10005,10010,10100,10110,10114,14869,45858,54873,100000,100001,100005,
%U 100010,100100,100101,101000,101005,1000000,1000001,1000005,1000010
%N Numbers k such that the k-th triangular number contains only digits {0,1,5}.
%H G. Resta, <a href="http://www.numbersaplenty.com/tr/tr015.html">Tridigital Triangular Numbers</a>
%t Select[Range[2 10^6], Complement[IntegerDigits[Binomial[# + 1, 2]], {0, 1, 5}] == {} &] (* _Vincenzo Librandi_, Dec 25 2015 *)
%o (Magma) [n: n in [1..2*10^6] | Set(Intseq(Binomial(n+1, 2))) subset [0, 1, 5]]; // _Vincenzo Librandi_, Dec 25 2015
%Y Cf. A000217, A119039. See A119034 for a table of cross-references.
%K nonn,base
%O 1,2
%A _Giovanni Resta_, May 10 2006
|
