OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[2 10^7], Complement[IntegerDigits[Binomial[# + 1, 2]], {0, 1, 3}] == {}&] (* Vincenzo Librandi, Oct 07 2015 *)
Position[Accumulate[Range[300000]], _?(SubsetQ[{0, 1, 3}, IntegerDigits[#]]&)]//Quiet//Flatten (* The program generates the first 16 terms of the sequence. *) (* Harvey P. Dale, Nov 02 2025 *)
PROG
(Magma) [n: n in [1..2*10^7] | Set(Intseq(Binomial(n+1, 2))) subset [0, 1, 3]]; // Vincenzo Librandi, Oct 07 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, May 10 2006
STATUS
approved
