| 参考まで; In[5]:= Table[2^n + 3^n, {n, 1, 19}] Mod[%, 5] Quotient[%%, 5]
Out[5]= {5, 13, 35, 97, 275, 793, 2315, 6817, 20195, 60073, 179195, 535537, 1602515, 4799353, 14381675, 43112257, 129271235, 387682633, 1162785755}
Out[6]= {0, 3, 0, 2, 0, 3, 0, 2, 0, 3, 0, 2, 0, 3, 0, 2, 0, 3, 0}
Out[7]= {1, 2, 7, 19, 55, 158, 463, 1363, 4039, 12014, 35839, 107107, 320503, 959870, 2876335, 8622451, 25854247, 77536526, 232557151}
|