%I #21 Jul 16 2021 19:59:57
%S 10,12,13,14,15,16,17,18,19,22,1012,1013,1014,1015,1016,1017,1018,
%T 1019,1021,1022,1210,1213,1214,1215,1216,1217,1218,1219,1310,1312,
%U 1314,1315,1316,1317,1318,1319,1321,1322,1410,1412,1413,1415,1416,1417,1418,1419
%N Numbers k with the property that reading k gives correct, although not necessarily complete, information about itself.
%C This is another sequence of "self-describing" numbers.
%H G. C. Greubel, <a href="/A059504/b059504.txt">Table of n, a(n) for n = 1..1000</a>
%e Reading 1016 as "one 0, one 6", it states correctly that it contains one 0 and one 6.
%t A059504Q = Module[{i = IntegerDigits@#}, EvenQ@Length@i && SubsetQ[Reverse /@ Tally@i, Partition[i, 2]]] &; Select[Range@1419, A059504Q] (* _JungHwan Min_, Jan 15 2017 *)
%Y Cf. A109775.
%K base,nonn,word,nice
%O 1,1
%A _Floor van Lamoen_, Jan 19 2001
%E More terms from _Jud McCranie_, Aug 13 2005