A206606-OEIS公司

A206606型

素数可以用两种以上的方法写成正方形和正方形的和。

三

2089, 4481, 7057, 15193, 15641, 16649, 23417, 34721, 65537, 68489, 69697, 72577, 93241, 118673, 123209, 146161, 173897, 176401, 191969, 199873, 205721, 216233, 239633, 259121, 264169, 271169, 280009, 286289, 296353, 301409, 318313, 342233, 347993, 357569, 381529, 447569, 466273, 477577, 526249, 534577 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`其中的一个子集{6553793241191969，..}允许以三种以上的方式进行表示。`
	链接	`罗伯特·伊斯雷尔，n=1..3930时的n，a（n）表`
	例子	`2089 = 19^2+12^3 = 33^2+10^3 = 45^2+4^3`
	MAPLE公司	`N： =10^6:#获取所有术语<=N` `对于x从1到地板（N^（1/2））do` `对于y从1到地板（（N-x^2）^（1/3））do` `p： =x^2+y^3；` `如果是素数（p），则` `如果赋值（R[p]），则R[p]:=R[p>+1` `否则R[p]：=1` `fi（菲涅耳）` `fi（菲涅耳）` `日` `日期：` `排序（映射（op，选择（t->R[op（t）]>2，[索引（R）]））#罗伯特·伊斯雷尔2017年3月21日`
	数学	`t={}；Do[Do[AppendTo[t，n^2+m^3]，｛n，300｝]，｛m，300｝]；t=排序[t]；t3={}；Do[If[t[[n]]==t[[n+2]]&&PrimeQ[t[n]]]，AppendTo[t3，t[n]]]，{n，长度[t]-2}]；t3；f1[l_]：=模块[{t={}}，Do[If[l[n]]=l[[n+1]]，追加到[t，l[[n]]]，{n，长度[l]-1}]；t] ；（仅提取单个参数）f1[t3]（或）` `mx=10^6；第一个/@排序@选择[Tally[Join@@Reap[（Sow@Select[#^3+Range[Sqrt[mx-#^3]]^2，PrimeQ]）和/@Range[mx ^（1/3）]][2，1]]，#[2]]>2&]（更快，乔瓦尼·雷斯塔2017年3月21日）`
	交叉参考	`囊性纤维变性。A054402号,A123364号,A162930型` `上下文中的序列：A221360型 A106720号 A179124号A089159号 A045051型 A102504号` `相邻序列：A206603型 A206604型 2006年6月A206607型 A206608型 A206609型`
	关键词	`非n`
	作者	`弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2012年2月10日`
	扩展	`更多术语来自罗伯特·伊斯雷尔2017年3月21日`
	状态	`经核准的`