A038378 Integers which have more distinct digits than any smaller number.
0, 10, 102, 1023, 10234, 102345, 1023456, 10234567, 102345678, 1023456789
Offset: 1
Links
- S. Colton, Refactorable Numbers - A Machine Invention, J. Integer Sequences, Vol. 2, 1999, #2.
- S. Colton, HR - Automatic Theory Formation in Pure Mathematics
Programs
-
Mathematica
Prepend[NestList[FromDigits[Append[IntegerDigits[#],Last[Union[IntegerDigits[#]]]+1]]&,10,8],0] (* Ivan N. Ianakiev, May 10 2015 *) Join[{0},Table[FromDigits[PadRight[{1,0},n,{1,0,2,3,4,5,6,7,8,9}]],{n,2,10}]] (* Harvey P. Dale, Sep 27 2016 *)
-
PARI
A038378(n)=sum(i=1,n--,10^(n-i)*if(i>1,i,10)) \\ M. F. Hasler, May 04 2017
Extensions
Offset fixed by Reinhard Zumkeller, Aug 25 2009
Comments