A098109-OEIS公司

A098109年

a（n）的除数！超过10^n。

5, 9, 13, 17, 23, 29, 34, 40, 46, 53, 59, 67, 73, 79, 87, 95, 103, 109, 116, 127, 134, 141, 150, 158, 167, 175, 182, 193, 199, 210, 218, 227, 234, 242, 254, 263, 271, 281, 290, 301, 311, 317, 329, 337, 349, 358, 367, 379, 387, 397, 406, 418, 427, 436, 446, 455

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

抵消

1,1

链接

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

MAPLE公司

#将两个ifactor表示[p1，e1]，[p2，e2]，[p3，e2]相乘

mulif:=proc（如果1，如果2）

本地ifr、t、p、e、ix、ifi；

如果：=如果1；

if2-do中的t

p:=op（1，t）；

e：=op（2，t）；

ix：=0；

ifi从1到nops（ifr）do

如果op（1，op（ifi，ifr））=p，则

ix:=ifi；

断裂；

结束条件：；

结束do：

如果ix=0，则

ifr：=[op（ifr），[p，e]]；

其他的

e：=e+op（2，op（ix，ifr））；

ifr:=底土（ix=[p，e]，ifr）；

结束条件：；

结束do：

返回ifr；

结束进程：

#tau（iff）利用tau的乘法性质

tauif：=进程（iff）

局部r；

r:=1；

iff-do中的t

r:=r*（1+op（2，t））；

结束do：

返回r；

结束进程：

#m！的ifactor表示！

iffact:=进程（m）

局部r，f；

如果m<=1，则

返回[]；

其他的

r:=[[2,1]]；

对于f从3到m do

ifmf:=ifactors（f）[2]；

r：=mulif（r，ifmf）；

结束do：

返回r；

结束条件：

结束进程：

A027423美元：=进程（n）

iffact（n）；

牛磺酸（%）；

结束进程：

A098109号：=进程（n）

局部m；

对于2 do中的m

如果A027423美元（m）然后>10^n

返回m；

结束条件：；

结束do：

结束进程：

从1到n do

打印(A098109号（n））；

结束do：#R.J.马塔尔2011年11月19日

交叉参考

囊性纤维变性。A027423美元.

上下文中的序列：A314691型 A314692型 A314693型*A314694型 A314695型 A314696型

相邻序列：A098106号 A098107号 A098108号*A098110号 A098111号 A098112号

关键字

非n

作者

杰夫·伯奇2004年9月23日

状态

经核准的