A059504 Numbers k with the property that reading k gives correct, although not necessarily complete, information about itself.

10, 12, 13, 14, 15, 16, 17, 18, 19, 22, 1012, 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1021, 1022, 1210, 1213, 1214, 1215, 1216, 1217, 1218, 1219, 1310, 1312, 1314, 1315, 1316, 1317, 1318, 1319, 1321, 1322, 1410, 1412, 1413, 1415, 1416, 1417, 1418, 1419

Offset: 1

Author

Floor van Lamoen, Jan 19 2001

Keywords

• base
• nonn
• word
• nice

Comments

This is another sequence of "self-describing" numbers.

Examples

			Reading 1016 as "one 0, one 6", it states correctly that it contains one 0 and one 6.
		

Links

• G. C. Greubel, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A109775.

Programs

Mathematica

A059504Q = Module[{i = IntegerDigits@#}, EvenQ@Length@i && SubsetQ[Reverse /@ Tally@i, Partition[i, 2]]] &; Select[Range@1419, A059504Q] (* JungHwan Min, Jan 15 2017 *)

Extensions

More terms from Jud McCranie, Aug 13 2005