%I#37 2020年2月27日18:19:18
%S 1,2,10,13,29,34,58,65,97106146157205218274289353370442461,
%电话:54156265067376979489892510371066118612134513781514,
%电话:154916931730188219212081222290233325092554273827852977
%N数k,使得5*k-1是一个完美的正方形。
%H Harry J.Smith,n的表,n=1..1000的a(n)</a>
%H<a href=“/index/Rec#order_05”>具有常系数的线性重复出现的索引条目,签名(1,2,-2,-1,1)。
%如果n是奇数,F a(n)=((2+5*(n-1)/2)^2+1)/5;如果n是偶数,则a(n)=((3+5*(n-2)/2)^2+1)/5。
%F From R.J.Mathar_,2010年1月30日:(开始)
%F a(n)=a(n-1)+2*a(n-2)-2*a(n-3)-a(n-4)+a(n-5)。
%传真:x*(1+x+6*x^2+x^3+x^4)/((1+x)^2*(1-x)^3)。(结束)
%F a(n)=(10*n*(n-1)+5-(6*n-3)*(-1)^n)/8.-_埃里克·西蒙·雅各布,2020年1月20日
%t f[n_]:=整数Q[Sqrt[5*n-1]];选择[Range[0,8!],f[#]&](*_Vladimir Joseph Stephan Orlovsky_,2010年2月19日*)
%t线性递归[{1,2,-2,-1,1},{1,2,10,13,29},50](*哈维·P·戴尔,2018年12月29日*)
%o(PARI)je=[];对于(n=15000,如果(issquare(5*n-1),je=concat(je,n));日本
%o(PARI){n=0;对于(m=1,10^9,if(issquare(5*m-1),写(“b062317.txt”,n++,“”,m);如果(n==1000,break))}\\_Harry J.Smith_,2009年8月4日
%Y参考A036666。
%K nonn,简单
%O 1,2号机组
%A _圣斯帕达罗,2001年7月12日
%E更多来自Jason Earls的条款,2001年7月14日