login
A031969
Numbers with exactly four distinct base-10 digits.
8
1023, 1024, 1025, 1026, 1027, 1028, 1029, 1032, 1034, 1035, 1036, 1037, 1038, 1039, 1042, 1043, 1045, 1046, 1047, 1048, 1049, 1052, 1053, 1054, 1056, 1057, 1058, 1059, 1062, 1063, 1064, 1065, 1067, 1068, 1069, 1072, 1073, 1074, 1075, 1076, 1078, 1079, 1082
OFFSET
1,1
COMMENTS
Last week's challenge on National Public Radio from listener Henry Hook of Brooklyn, N.Y.: In a few weeks something will happen that hasn't happened since 1987. What is it? Answer: A year with no repeat digits (1987, 2013). - Jonathan Vos Post, Dec 02 2012
MATHEMATICA
Select[Range[1000, 1100], Length[Union[IntegerDigits[#]]] == 4 &] (* T. D. Noe, Dec 04 2012 *)
PROG
(PARI) is(n)=#Set(digits(n))==4 \\ Charles R Greathouse IV, Feb 11 2017
CROSSREFS
Sequence in context: A196739 A196291 A145589 * A166512 A038461 A338704
KEYWORD
nonn,base
EXTENSIONS
New name from Charles R Greathouse IV, Feb 11 2017
Title and finite status reverted by Sean A. Irvine, May 04 2020
STATUS
approved