A008479-出口

A008479号

与n具有相同素因子的数<=n的个数。

1, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 4, 1, 3, 1, 2, 1, 1, 1, 4, 2, 1, 3, 2, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 6, 2, 4, 1, 2, 1, 7, 1, 3, 1, 1, 1, 2, 1, 1, 2, 6, 1, 1, 1, 2, 1, 1, 1, 8, 1, 1, 3, 2, 1, 1, 1, 5, 4, 1, 1, 2, 1, 1, 1, 3, 1, 3, 1, 2, 1, 1, 1, 9

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

抵消

1,4

对于n>1，a（n）给出n位于数组中的行的（基于一的）索引A284311型和A285321型或分别是n所在列的索引A284457型.A285329型给出了另一个索引-安蒂·卡图恩2017年4月17日

链接

T.D.Noe，n=1..10000时的n，a（n）表

P.Erdős、T.Motzkin、，问题5735阿默尔。数学。月刊，78（1971），680-681。（解决方案不正确！）

H.N.Shapiro，问题5735阿默尔。数学。月刊，97（1990），937。

配方奶粉

a（n）=总和{k=1..n}（楼层（n^k/k）-楼层（（n^k-1）/k））*（楼层（k^n/n）-楼板（（k^n-1）/n））-安东尼布朗2016年5月20日

如果A008683号（n） <>0[当n为平方自由时，A005117号]，a（n）=1，否则a（n(A285328型（n））-安蒂·卡图恩2017年4月17日

MAPLE公司

N： =100:#以获得（1）。。a（否）

五： =矢量（N）：

V[1]：=1：

对于从2到n的n do

如果V[n]=0，则

S： ={n}；

对于numtheory:-factorset（n）do中的p

S:=S联合{seq（seq（S*p^k，k=1..floor（log[p]（N/S））），S=S）}；

日期：

S： =排序（转换（S，列表））；

对于从1到nops（S）的k，做V[S[k]]：=k od：

fi（菲涅耳）

日期：

转换（V，列表）#罗伯特·伊斯雷尔2016年5月20日

数学

PkTbl=前缀[Array[Times@@First[Transpose[FactorInteger[#]]&，100，2]，1]；1+数组[Count[Take[PkTbl，#-1]，PkTbl[[#]]&，Length[PkTbl]]

计数[#，k_/；k==Last@#]//@函数[s，Take[s，#]//@Range@Length@s]@Array[Map[First，FactorInteger@#]&，120]（*或*）

表[Sum[（Floor[n^k/k]-Floor[（n^k-1）/k]）（Floor[k^n/n]-Floor[（k^n-1）/n]），{k，n}]，{n，120}](*迈克尔·德弗利格2016年5月20日*）

黄体脂酮素

（方案）（定义(A008479号n）（如果（不是（零(A008683号n））1（+1）(A008479号(A285328型n））；；安蒂·卡图恩2017年4月17日

（PARI）a（n）=我的（f=系数（n）[，1]，s）；forvec（v=向量（#f，i，[1，logint（n，f[i]）]），如果（prod（i=1，#f，f[i]^v[i]）<=n，s++）；秒\\查尔斯·R·Greathouse IV2017年10月19日

交叉参考

囊性纤维变性。A005117号（1的位置），A005361号,A007947号,A008683号,A284311型,A284457型,A285321型,A285328型,A285329型.

上下文中的序列：A303915型 A322885型 A292582型*A331178型 A227350型 107345英镑

相邻序列：A008476号 A008477号 A008478号*A008480号 A008481号 A008482号

关键词

非n,容易的

作者

杰弗里·沙利特,奥利维尔·杰拉德

状态

经核准的