A103400-OEIS公司

A103400号

中的半素数A103380号.

4, 9, 15, 21, 33, 38, 58, 65, 86, 106, 121, 129, 265, 511, 2047, 2049, 4097, 4109, 8193, 17855, 19857, 34709, 66233, 104739, 130953, 131209, 140474, 220918, 258931, 511673, 540951

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

抵消

1,1

链接

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

配方奶粉

的交点A103380号和A001358号.

MAPLE公司

A103380号：=proc（n）选项记忆；如果n<=13，则为1；其他进程名（n-12）+进程名（n-13）；fi；end:isA103380:=proc（n）选项记住；局部i；因为我从1开始做如果A103380号（i） =n，然后返回（true）；否则如果A103380号（i） >n然后返回（false）；fi；od：结束：A103400号：=proc（n）选项记忆；局部a，i；如果n=1，则为4；如果numtheory[bigomega]（a）=2，则如果是A103380（a），则返回（a）；fi；fi；od:fi；结束：对于从1到37的n，执行printf（“%d，”，A103400号（n））；日期：#R.J.马塔尔2008年8月30日

数学

半素数Q[n_]：=Plus@@FactorInteger[n][[All，2]]？2; 清除[a]；k12；做[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号,A103380号.

上下文中的序列：A162801型 A335250型 A103396号*A103399号 A103398号 103397英镑

相邻序列：103397英镑 A103398号 A103399号*A103401号 A103402号 103年3月

关键词

容易的,非n

作者

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

扩展

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

状态

经核准的