%I#15 2023年10月6日03:28:15

%S 2,3,6,7,11,13,19,29,31,43,59,67,73,79,89109151197199211229233，

%电话：26928128329333373393893974194214394493487503509，

%电话：54755761967370172773379780981118278778838887937941947953983

%N阶乘分形数k为A269982（k）=1。

%C有关阶乘分形的定义和相关序列的指南，请参见A269982。

%C 6是这个序列中最大的偶数项吗_M.F.Hasler，2018年11月5日

%e NI（1/7）=（3，1，1，2，2，3，1，2，2，3，1，1，2，2，…），

%e核岛指数（2/7）=（2，2，1，3，1，2，2，

%e核岛指数（3/7）=（2，1，1，3，1，2，2，3，1,1,2,2,3，1…），

%e核岛指数（4/7）=（1、3、1、1、2、3、1,1,2、2、3,3、1,1、2…），

%e NI（5/7）=（1，2，1，1，3，1，1，2，2，3，1，1，2，2，3，…），

%核岛指数（6/7）=（1，1，2，1，1

%e最终都是周期的（1，1，2，2，3），所以n=7只有一个等价类，7的分位数为1。

%t A269982[n_]：=CountDistinct[带[{l=嵌套WhileList[

%t重缩放[#，{1/（楼层[x]+1）！，1/楼层[x]！}/。

%t查找根[1/x！==#，{x，1}]&，#，UnsameQ，All]}，

%t吨最小值@l[[第一个@第一个@位置[l，最后一个@l] ;;]]] & /@

%t范围[1/n，1-1/n，1/n]]；（*达文公园，2016年11月19日*）

%t选择[Range[2，1000]，A269982[#]==1&]（*_Robert Price_，2019年9月19日*）

%o（PARI）选择（is_A269983（n）=A269982（n）==1，[1..300]）\\ M.F.Hasler_，2018年11月5日

%Y参考A269982（n的阶乘分形）；A269984、A269985、A269966、A269997、A26998（分别具有阶乘分数2、…、6的数字）。

%Y参考A269570（二进制分形），A270000（谐波分形）。

%K nonn公司

%O 1，1

%A _Clark Kimberling_和P eter J.C.Moses_，2016年3月10日

%E由M.F.Hasler_编辑并添加更多术语，2018年11月5日

%E a（54）-a（58）摘自2019年9月19日的罗巴特价格