editing
approved
editing
approved
Select[Table[(n(n+1))/2, {n, 45000, 100000}], Min[DigitCount[#]]>0&] (* Harvey P. Dale, Jul 26 2014 *)
approved
editing
editing
approved
(PARI) v=List; for(n=1, 1e5, if(#Set(digits(t=n*(n+1)/2))==10, listput(v, t))); Vec(v) \\ Charles R Greathouse IV, May 02 2014
(PARI) v=List; for(n=46097, 1e7, 1, 1e5, if(#Set(digits(t=n*(n+1)/2))==10, listput(v, t))); Vec(v) \\ Charles R Greathouse IV, May 02 2014
The first term having a repeated digit is a(83) = 10075823946.
Charles R Greathouse IV, <a href="/A241812/b241812.txt">Table of n, a(n) for n = 1..10000</a>
(PARI) v=List; for(n=46097, 1e7, if(#Set(digits(t=n*(n+1)/2))==10, listput(v, t))); Vec(v) \\ Charles R Greathouse IV, May 02 2014
nonn,base,new,easy
approved
editing
proposed
approved
editing
proposed
Superset of A115940. - R. J. Mathar, May 02 2014
approved
editing
proposed
approved