A103399-OEIS公司

A103399号

中的半素数A103379号.

4, 9, 15, 21, 33, 38, 58, 65, 86, 106, 121, 129, 265, 511, 2047, 2049, 4097, 4109, 17855, 19857, 32663, 34709, 104739, 130393, 131889, 140474, 220918, 262978, 266174, 274759, 540933, 568083, 1312526, 1665242, 1833203, 2179101, 2295571

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

抵消

1,1

链接

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

配方奶粉

交叉点A103379号和A001358号.

例子

A103379号（21）=4=2*2，它是半素数，因此4在这个序列中。

MAPLE公司

isA103379:=进程（n）

选项记忆；

局部i；

对于我从1 do

如果103379英镑（i） =n那么

返回true；

否则如果A103379号（i） >然后是n

返回false；

fi；

日期：

结束进程：

A103399号：=进程（n）

选项记忆；

局部a，i；

如果n=1，则

其他的

对于来自procname（n-1）+1 do的a

如果numtheory[bigomega]（a）=2，则

如果是A103379（a），则

返回a；

fi；

结束do：

结束条件：；

结束进程：

从1到n do

printf（“%d，\n”，A103399号（n））；

结束do：#R.J.马塔尔2008年8月30日

数学

半素数Q[n_]：=Plus@@FactorInteger[n][[All，2]]？2; 清除[a]；k11；做[a[n]=1，{n，k+1}]；a[n]：=a[n]=a[n-k]+a[n-k-1]；A103379号=数组[a，100]A103389号=联合[Select[Array[a，1000]，PrimeQ]]A103399号=Union[Select[Array[a，300]，SemiprimeQ]]N[Solve[x^12-x-1==0，x]，111][2]（*编程、编辑和扩展雷·钱德勒和罗伯特·威尔逊v*)

交叉参考

囊性纤维变性。A001358号,A103379号,A103389号.

上下文中的顺序：A335250型 1996年3月13日 A103400号*A103398号 A103397号 103394英镑

相邻序列：A103396号 A103397号 A103398号*A103400号 A103401号 A103402号

关键词

非n

作者

乔纳森·沃斯邮报2005年2月15日

扩展

由从上的a（15）更正R.J.马塔尔2008年8月30日

状态

经核准的