A066429 a(n) = 7^n mod n^7.

0, 49, 343, 2401, 16807, 117649, 0, 1570497, 2089855, 2475249, 9122472, 10209313, 5300159, 98001617, 62916193, 84245889, 82474028, 145795249, 530403874, 57612001, 1611673651, 2006506001, 832663280, 2652148801, 4541072682, 7457168625, 3383428402, 6778582433, 4637847366

Offset: 1

Author

Robert G. Wilson v, Dec 27 2001

Keywords

• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..500

Crossrefs

Cf. A066606.

Programs

Mathematica

Table[ Mod[ 7^n, n^7], {n, 1, 30} ]
Table[PowerMod[7,n,n^7],{n,30}] (* Harvey P. Dale, Dec 25 2023 *)

PARI

a(n) = { lift(Mod(7, n^7)^n) } \\ Harry J. Smith, Feb 13 2010