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,1

Comments

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

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A109775.

Sequence in context: A350445 A043493 A105959 * A083310 A367797 A065206

Adjacent sequences: A059501 A059502 A059503 * A059505 A059506 A059507

Keyword

base,nonn,word,nice

Author

Floor van Lamoen, Jan 19 2001

Extensions

More terms from Jud McCranie, Aug 13 2005

Status

approved