A199634-OEIS公司

1996年1月34日

提升到n次方的泛数字数是指每个数字出现n次的数字。

3265920, 534, 74, 13, 8, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

注意，a（1）是泛数字的数量，10！-9! = 9*9!. 对于n>1，它是A199630型,A199631号,A365144型,A199632号，以及A199633号.

Mathematica代码运行需要很多小时。程序在进行186次幂运算后停止，因为最大的泛数字9876543210的任何更大幂都不会产生足够的数字。

链接

n=1..83时的n，a（n）表。

Patrick De Geest，九位数（第4页），有一些十位数（pandigital）例外

作者？，所有条款

数学

t={}；perm=选择[Permutations[Range[0，9]]，#[[1]]>0&]；len=长度[perm]；打印[{1，len}]；附加到[t，len]；压水比=1；i=1；当[pwr++；i<len，当[IntegerLength[FromDigits[perm[i]]^pwr]<10*pwr，i++]；cnt=0；Do[If[Union[DigitCount[FromDigits[perm[j]]^pwr]]=={pwr}，cnt++]，{j，i，len}]；打印[{pwr，cnt}]；附加到[t，cnt]]

交叉参考

囊性纤维变性。A050278号（泛数字），A199630型,1996年1月31日,A365144型,1996年12月,1996年1月33日.

上下文中的序列：A203731型 A138360型 A206083型*A203987型 A357755 A217110型

相邻序列：A199631号 A199632号 A199633号*A199635号 A199636号 A199637号

关键词

非n,基础

作者

T.D.诺伊2011年11月9日

状态

经核准的