%我#43 2022年3月5日14:12:29

%S 2,3,5,21,55,39272,573457547754848115997775214845902928，

%电话：469390542343871174345358997226625682834678016518384，

%电话：7946162631788090606908260807348224903114623711179545983

%N斐波那契（p-J（p，5））mod p^2，其中p是第N素数，J是雅可比符号。

%C值为0表示Wall-Sun-Sun素数。目前还不知道这样的素数_Felix Fröhlich，2014年6月7日

%H T.D.Noe，n的表格，n的a（n）=1..10000</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Wall-Sun-SunPrime.html“>Wall-Sun-Sun Prime公司</a>

%t a[n_]：=（p=素数[n]；Mod[Fibonacci[p-JacobiSymbol[p，5]]，幂[p，2]）；表[a[n]，{n，1,50}]（*_Javier Rivera Romeu_，2022年3月3日*）

%o（PARI）a（n）=我的（p=素数（n））；lift（Mod（[1,1；1,0]^（p-kronecker（p，5）），p^2）[1,2]）\\-Charles R Greathouse IV_，2011年10月31日

%o（鼠尾草）

%o定义a（n）：

%o p=素数（）.unrank（n-1）

%o返回fibonacci（p-jacobi_symbol（p，5））%pow（p，2）

%o表示范围（1100）内的n：打印（a（n），end=“，”）#_Javier Rivera Romeu_，2022年3月4日

%Y参考A113649。

%K nonn公司

%O 1,1号机组

%A _Eric W.Weisstein，2005年11月3日