%I #10 Dec 25 2023 11:02:54
%S 0,49,343,2401,16807,117649,0,1570497,2089855,2475249,9122472,
%T 10209313,5300159,98001617,62916193,84245889,82474028,145795249,
%U 530403874,57612001,1611673651,2006506001,832663280,2652148801,4541072682
%N a(n) = 7^n mod n^7.
%H Harry J. Smith, <a href="/A066429/b066429.txt">Table of n, a(n) for n = 1..500</a>
%t Table[ Mod[ 7^n, n^7], {n, 1, 30} ]
%t Table[PowerMod[7,n,n^7],{n,30}] (* _Harvey P. Dale_, Dec 25 2023 *)
%o (PARI) { for (n=1, 500, write("b066429.txt", n, " ", 7^n % n^7) ) } \\ _Harry J. Smith_, Feb 13 2010
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Dec 27 2001
|