login

Revision History for A241812

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Triangular numbers which have one or more occurrences of exactly ten different digits.
(history; published version)
#17 by Harvey P. Dale at Sat Jul 26 16:40:41 EDT 2014
STATUS

editing

approved

#16 by Harvey P. Dale at Sat Jul 26 16:40:36 EDT 2014
MATHEMATICA

Select[Table[(n(n+1))/2, {n, 45000, 100000}], Min[DigitCount[#]]>0&] (* Harvey P. Dale, Jul 26 2014 *)

STATUS

approved

editing

#15 by Charles R Greathouse IV at Fri May 02 10:00:28 EDT 2014
STATUS

editing

approved

#14 by Charles R Greathouse IV at Fri May 02 10:00:25 EDT 2014
PROG

(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

#13 by Charles R Greathouse IV at Fri May 02 09:59:56 EDT 2014
PROG

(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

#12 by Charles R Greathouse IV at Fri May 02 09:59:28 EDT 2014
COMMENTS

The first term having a repeated digit is a(83) = 10075823946.

LINKS

Charles R Greathouse IV, <a href="/A241812/b241812.txt">Table of n, a(n) for n = 1..10000</a>

PROG

(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

KEYWORD

nonn,base,new,easy

STATUS

approved

editing

#11 by Charles R Greathouse IV at Fri May 02 09:47:23 EDT 2014
STATUS

proposed

approved

#10 by R. J. Mathar at Fri May 02 06:44:11 EDT 2014
STATUS

editing

proposed

#9 by R. J. Mathar at Fri May 02 06:43:57 EDT 2014
COMMENTS

Superset of A115940. - R. J. Mathar, May 02 2014

STATUS

approved

editing

#8 by N. J. A. Sloane at Tue Apr 29 22:51:12 EDT 2014
STATUS

proposed

approved