检验过的

经核准的

提出

检验过的

编辑

提出

数量独特的不同的Lucas序列中的残数模第n素数。

任意n的Lucas数mod n都是周期性的-；看见A106291号对于周期长度。

第五个质数是11。Lucas序列mod 11是{2,1,3,4,7,0,7,3,10,2,1,3,3，…}-一个周期序列。有7个独特的不同的这个序列中的残基，即{0,1,2,3,4,7,10}。所以a（5）=7。

经核准的

编辑

pisano[n_]：=模[{a={2，1}，a0，k=0，s}，如果[n==1，1，a0=a；Reap[While[k++；s=Mod[Plus@@a，n]；母猪[s]；a[1]=a[2]；a[[2]=秒；a！=a0]][[2，1]]]；连接[{2}，表[u=Union[pisano[n]]；长度[u]，{n，素数[范围[2，100]]}]](*]]}]] (* _T.D.诺伊,_,2013年3月22日*）

OEIS服务器: https://oeis.org/edit/global/2267

编辑

经核准的

2, 3, 4, 7, 7, 12, 16, 12, 19, 10, 19, 28, 19, 33, 15, 44, 37, 28, 51, 44, 56, 49, 63, 24, 80, 35, 79, 33, 48, 40, 97, 82, 100, 33, 72, 37, 124, 123, 127, 124, 112, 62, 119, 144, 148, 16, 30, 169, 171, 80, 28, 149, 103, 157, 196, 85, 120, 169, 204, 27, 213, 212,43,194,244,244,78,260,107,120

经核准的

编辑

编辑

经核准的

T.D.Noe，<a href=“/223488英镑/b223488.txt“>n表，n=1..1000时为a（n）</a>

pisano[n_]：=模[{a={2，1}，a0，k=0，s,t吨}，如果[n==1，1，a0=一；t吨=a；收割[而[k++；s=Mod[Plus@@a，n]；附加到母猪[t吨,s] ；a[1]=a[2]；a[[2]=秒；a！=a0];t吨]];]][[2,1]]]];连接[{2}，表[u=Union[pisano[n]]；长度[u]，{n，素数[Range[2，100]]}]（*T.D.Noe，2013年3月22日*）

pisano[n_]：=模[{a={2，1}，a0，k=0，s，t}，如果[n==1，1，a0=a；t=a；而[k++；s=Mod[Plus@@a，n]；附加到[t，s]；a[1]=a[2]；a[[2]=秒；a！=a0]；t] ]；连接[{2}，表[u=Union[pisano[n]]；长度[u]，{n，素数[Range[2，100]]}]（*T.D.Noe，2013年3月22日*）

囊性纤维变性.A137750型.

提出

编辑