A090940-OEIS公司

A090940美元

a（n）=区别于早期元素的最小奇数素数，使得前n个元素的平均数是素数。

3, 7, 5, 13, 37, 73, 23, 71, 29, 109, 103, 19, 41, 293, 59, 251, 683, 107, 31, 223, 67, 151, 523, 127, 227, 131, 347, 83, 137, 197, 139, 907, 163, 503, 173, 389, 179, 863, 743, 211, 2671, 271, 701, 281, 101, 277, 4507, 367, 661, 373, 883, 383, 2927, 431, 541, 433

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

抵消

1,1

a（n）是（a（1）++a（n））/n是素数。

推测包括所有奇数质数-大卫·W·威尔逊2012年11月23日

链接

扎克·塞多夫（Zak Seidov）和阿洛伊斯·海因茨（Alois P.Heinz），n=1..10000时的n，a（n）表

例子

(3+7)/2 = 5, (3+7+5+13)/4 = 7.

MAPLE公司

q： =proc（n）选项记忆；为（n＜3）端：

a： =proc（n）选项记忆；局部k，p；

如果n=1，则k为3，而q（k）或

irem（s（n-1）+ithprime（k），n，'p'）>0或非isprime（p）

做od；q（k）：=真；ithprime（k）fi

结束时间：

s： =proc（n）选项记忆；a（n）+`if`（n<2，0，s（n-1））结束：

seq（a（n），n=1..100）#阿洛伊斯·海因茨2012年11月21日

数学

a=3；s={a}；sm=a；Do[Do[p=素数[k]；如果[FreeQ[s，p]&&PrimeQ[（sm+p）/i]，sm=sm+p；附加到[s，p]；中断[]]，{k，310000}]，{i，21000}]；秒(*扎克·塞多夫2012年11月21日*）

交叉参考

囊性纤维变性。A090941号.

上下文中的序列：A065283号 A352670型 A268261型*A090916号 A342701型 A184162号

相邻序列：A090937号 A090938号 A090939号*A090941号 A090942号 A090943号

关键词

非n

作者

阿马纳特·穆尔蒂2003年12月29日

扩展

更正和扩展人雷·钱德勒2003年12月31日

定义修正人大卫·W·威尔逊，2012年11月23日

状态

经核准的