|
%I #15 Dec 07 2019 12:18:25
%S 0,2,28,80,208,1664,28864,137600,1660672,3207680,45816832,245602304,
%T 1239224320,1206665216,9653321728,390683230208,2185095872512,
%U 554107535360,38286179172352,306289433378816,1231595987009536,9852767896076288,78822143168610304,367333737664348160
%N a(n) = 8^n mod 6^n.
%t Table[PowerMod[8,n,6^n],{n,0,30}] (* _Harvey P. Dale_, Apr 20 2011 *)
%o (Sage) [power_mod(8,n,6^n)for n in range(0,24)] # _Zerinvary Lajos_, Nov 28 2009
%o (PARI) a(n) = if (n, lift(Mod(8, 6^n)^n), 0); \\ _Michel Marcus_, Feb 20 2018
%Y Cf. A000400, A001018.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, May 20 2008
|
