%I#14 2024年3月30日21:20:23

%S 224444222444444422444442266666101231312012333110143133，

%电话：10143331101531331015333110163133101633311017313310173331，

%电话：101831331018333110193133101933311021232102132132

%N自描述数字：读取数字可以对数字进行（可能是多余的）描述。

%C From _Robert G.Wilson v_，2012年5月5日：（开始）

%C如果abcd。。。如果是a、b、c&d整数，那么cdab也是。例如，由于10123133是一个术语，因此必须是10123331、10311233、10313312、10331231、10333112、12103133、12103331、12311033、12313310、12331031、12333110、31101233、31103312、31121033、3123310、31331210、33121031、331210031、33123110、3331112。

%因此，10123133可以说是代换子或原始自刻划数。

%C如果我们索引数字abcd。。。从左到右，奇数索引的总和必须等于唯一偶数诱导数字的位数。

%C术语数量<10^2n:1，2，6，1043，5498。

%C这个序列是有限的，最后一项可能是9998979595959584848484848，4847673737373626262626256262515151110。

%C（结束）

%H Robert G.Wilson v，n的表，n的a（n）=1..10538</a>

%H Carlos Rivera的《首要难题与问题联系》，<a href=“http://www.primepuzzles.net/puzzles/puzz_324.htm“>拼图”>324。自述数字</a>。

%e“22”确实由“两个2”组成。

%t fQ[n_]：=块[{id=IntegerDigits[n]}，如果[OddQ[Length[id]]，返回[False]，并集[Reverse@#&/@Tally[id]]==Union@Partition[id，2]]；k=1；lst={}；当[k<10^7时，如果[fQ@k，AppendTo[lst，k]；打印[k]]；k++]；第一次（*罗伯特·G·威尔逊诉，2012年4月27日*）

%Y参考A108810、A173101、A005150。

%K nonn，基础，fini

%O 1,1号机组

%A _Jud McCranie，2005年8月15日