%I#40 2023年12月27日15:07:44
%S 0,1,8,12,4,5,6,13,2,9,10,11,3,7,14,0,1,8,12,4,5,13,2,9,10,11,3,7,
%T 14,0,1,8,12,4,5,6,13,2,9,10,11,3,7,14,0,18,12,5,6,13,9,10,11,3,
%U 7,14,0,1,8,12,4,5,6,13,2,9,10,11,3,7,14,1,8,12,5,6,13,9,10,11,7,14
%N a(N)=N ^3模块15。
%C同样正确的是,a(n)=n^(4k+3)mod 15包含任何k。-加里·德特列夫斯,2021年12月15日
%H G.C.Greubel,<a href=“/A0070077/b070477.txt”>n,a(n)表,n=0..1000</a>
%H<a href=“/index/Rec#order_15”>为具有常数系数的线性递归的索引条目</a>,签名(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1)。
%F From _G.C.Greubel_,2016年3月28日:(开始)
%F a(n)=a(n-15)。
%传真:(-x-8*x^2-12*x^3-4*x^4-5*x^5-6*x^6-13*x^7-2*x^8-9*x^9-10*x^10-11*x^11-3*x^12-7*x^13-14*x^14)/(-1+x^15)。(结束)
%t PowerMod[Range[0,90],3,15](*或*)PadRight[{},90,{0,1,8,12,4,5,6,13,2,9,10,11,3,7,14}](*哈维·戴尔,2014年1月27日*)
%t表[Mod[n^3,15],{n,0,100}](*Vincenzo Librandi_,2014年6月19日*)
%o(Sage)[power_mod(n,3,15)for n in range(0,90)]#_Zerinvary Lajos_,2009年10月29日
%o(岩浆)[Modexp(n,3,15):n in[0..100]];//_文森佐·利班迪(Vincenzo Librandi),2016年3月28日
%o(PARI)a(n)=n^3%15\\查尔斯·格里特豪斯IV,2016年4月6日
%K nonn,简单
%0、3
%A _N.J.A.Sloane,2002年5月12日