编辑

经核准的

请参见A282755型对于变体。

经核准的

编辑

提议的

经核准的

编辑

提议的

Giovanni Resta，<a href=“/A237713型/b237713.txt“>n、a（n）表（n=1..10000）</a>

乔瓦尼·雷斯塔：我更改了标题，使其与数据更加匹配。

复合数n，以便 不同的n中的数字和 不同的中的数字 并置 属于这个n的真除数是相同的。

选择[范围[10^5]！PrimeQ@#&Union@IntegerDigits@#==Union@@IntegerDigits/@Most@Divisors@#&](*乔瓦尼·雷斯塔2014年2月12日*）

提议的

编辑

编辑

提议的

因为1总是n的除数，所以这是A011531号-米歇尔·马库斯2014年2月12日

Pn[n_]：=排序[DeleteDuplicates[Flatten[IntegerDigits[Take[Divisors[n]，DivisorSigma[0，n]-1]]]]；Fn[n_]：=排序[DeleteDuplicates[IntegerDigits[n]]]；lst={}；Do[If[！PrimeQ[n]&&Pn[n]===Fn[n]，AppendTo[lst，n]]，{n，2，10^5}]；第一次

（PARI）isok（n）={my（digs=[]）；fordiv（n，d，if（d！=n，digs=concat（diggs，digits（d）））\\米歇尔·马库斯，2014年2月12日

提议的

编辑

编辑

提议的

分配混合成的 数字 n个 这样的 那个 这个 数字 在里面 n个 和 这个 数字 在里面 并置 属于 适当的 约数 属于 n个 对于是 米歇尔这个 拉尼奥相同的.

125, 1255, 2510, 11009, 11099, 11255, 11379, 12326, 12955, 14379, 14397, 15033, 15303, 16325, 17482, 21109, 25105, 31007, 31503, 33011, 35213, 37127, 37921, 41303, 44011, 49319, 51367, 53491, 63013, 69413, 70319, 71057, 72013, 72517, 74341, 77011, 81767

1,1

125在序列中是因为125的适当除数是{1,5,25}，其数字与125相同。

Pn[n_]：=排序[DeleteDuplicates[Flatten[IntegerDigits[Take[Divisors[n]，DivisorSigma[0，n]-1]]]]；Fn[n_]：=排序[DeleteDuplicates[IntegerDigits[n]]]；lst={}；Do[If[！PrimeQ[n]&&Pn[n]==Fn[n]，AppendTo[lst，n]]，{n，2，10^5}]；第一次

囊性纤维变性。A032741号,A035141号.

分配

非n,基础

米歇尔·拉格诺2014年2月12日

经核准的

编辑