%I#24 2023年12月27日14:59:23
%S 0,1,4,9,16,25,6,19,4,21,10,24,19,16,15,16,19,24,10,21,4,19,6,25,
%电话16,9,4,1,0,1,4,9,16,25,6,19,4,21,10,12,24,19,16,15,16,19,14,10,21,4,
%U 19、6、25、16、9、4、1、0、1、4、9、16、25、6、19、4、21、10、24、19、16、15、16、19、24、1
%N a(N)=N^2 mod 30。
%C等效,n^6 mod 30.-_Ray Chandler,2023年12月27日
%H G.C.Greubel,n表,n=0..1000时的a(n)</a>
%H<a href=“/index/Rec#order_28”>带常系数线性递归的索引条目</a>,签名(-1,0,1,1,0,-1,-1,0。
%F来自Reinhard Zumkeller_,2009年4月24日:(开始)
%F a(m*n)=a(m)*a(n)mod 30。
%对于k<=15*n,F a(15*n+k)=a(15*n-k)。
%F a(n+30)=a(n)。(结束)
%F a(n)=-a(n-1)+a(n-3)+a_R.J.Mathar,2009年7月23日
%t表[Mod[n^2,30],{n,0200}](*_Vladimir Joseph Stephan Orlovsky_,2011年4月27日*)
%t线性递归[{-1,0,1,1,0,-1,-1,0
%t PowerMod[Range[0,80],6,30](*或*)PadRight[{},80,{0,1,4,9,16,25,6,19,4,21,16,15,16,19,14,10,21,4,19,6,25,16,9,4,1}](*Harvey P.Dale_,2023年7月10日*)
%o(Sage)[power_mod(n,2,30)for n in range(0,75)]#_Zerinvary Lajos_,2009年11月3日
%o(PARI)a(n)=n^2%30\\查尔斯·格里特豪斯IV_,2015年10月7日
%Y A010462、A070431、A008959、A0704305、A070448、A0704402、A159852、A000290.-_Reinhard Zumkeller_,2009年4月24日
%K nonn,简单
%0、3
%A _N.J.A.Sloane,2002年5月12日