- Table[{m=Mod[n,4],r=Ceiling[n/4],a=1909 m-1725 m^2+368 m^3,b=6-406 m+363 m^2-77 m^3};{n,Round[Sqrt[23]/276 ((a +b Sqrt[23] ) (24+5 Sqrt[23])^r)],Round[1/276 ((a+b Sqrt[23]) (24+5 Sqrt[23])^r)]},{n,30}]//FullSimplify
复制代码
{{1,4,1},{2,5,1},{3,19,4},{4,24,5},{5,211,44},{6,235,49},{7,916,191},{8,1151,240},{9,10124,2111},{10,11275,2351},{11,43949,9164},{12,55224,11515},{13,485741,101284},{14,540965,112799},{15,2108636,439681},{16,2649601,552480},{17,23305444,4859521},{18,25955045,5412001},{19,101170579,21095524},{20,127125624,26507525},{21,1118175571,233155724},{22,1245301195,259663249},{23,4854079156,1012145471},{24,6099380351,1271808720},{25,53649121964,11186615231},{26,59748502315,12458423951},{27,232894628909,48561887084},{28,292643131224,61020311035},{29,2574039678701,536724375364},{30,2866682809925,597744686399}} |