登录
OEIS由OEIS基金会的许多慷慨捐助者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A006703号 Pellian的解:y使得x^2-n*y^2=+-1。
(原名M0399)
8
0、1、1、0、1、2、3、1、0、1、3、2、5、4、1、0、1、4、39、2、12、42、5、1、0、1、5、24、13、2、273、3、4、6、1、0、1、6、4、3、5、2、531、30、24、3588、7、1、0、1、7、90、25、66、12、2、20、13、69、4、3805、8、1、0、1、8、5967、4、936、30、413、2、125、5、3、6630、40、6、9 (列表图表参考历史文本内部格式)
抵消
1,6
参考文献
A.Cayley,为执行与Pellian方程相关的表格而任命的委员会的报告。。。,数学论文集。卷。1-13,剑桥大学出版社,伦敦,1889-1897年,第13卷,第430-443页。
C.F.Degen,Canon Pellianus。哈夫尼埃,哥本哈根,1817年。
D.H.Lehmer,《数论表格指南》。第105号公报,国家研究委员会,华盛顿特区,1941年,第55页。
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
链接
A.凯利,为执行与佩林方程相关的表格而任命的委员会的报告。。。,数学论文集。卷。1-13,剑桥大学出版社,伦敦,1889-1897年,第13卷,第430-443页。(带注释的扫描副本)
M.Zuker,佩尔方程x^2-d*y^2=+-1的基本解[断开的链接]
数学
r[x_,n_]:=减少[y>0&&(x^2-n*y^2==-1||x^2-n*y^2==1),y,整数];a[n_/;整数Q[Sqrt[n]]=0;a[n_]:=a[n]=(k=1;而[r[k,n]===假,k++];y/.ToRules[r[k,n]]);表格[打印[a[n]];a[n],{n,1,79}](*Jean-François Alcover公司2012年1月30日*)
nmax=500;
nconv=200;(*如果某些项没有线性递归,则应增加收敛“nconv”的数量。*)
x[n_]:=x[n]=模块[{lr},如果[IntegerQ[Sqrt[n]],1,lr=FindLinearRecurrence[Numerator[Convergents[Sqrt[n],nconv]]];选择第一个[lr,#>1&]/2]];
a[n_]:=如果[n==2,1,SelectFirst[{Sqrt[(x[n]^2-1)/n],Sqrt[[x[n]^2+1)/n]},IntegerQ]];
数组[a,nmax]//安静(*Jean-François Alcover公司2021年3月8日*)
交叉参考
囊性纤维变性。A006702号(对于x值),A077233号.
关键词
非n
作者
扩展
更正和扩展人T.D.诺伊2007年5月19日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年4月19日21:09。包含371798个序列。(在oeis4上运行。)