A094924 - OEIS

%I #13 Dec 23 2023 15:42:01

%S 0,0,1,0,1,4,1,0,1,0,1,4,1,10,1,0,1,10,1,0,7,10,1,16,6,10,10,8,1,10,1,

%T 0,25,10,31,28,1,10,13,0,1,28,1,28,1,10,1,16,22,0,40,40,1,10,11,24,34,

%U 10,1,40,1,10,28,0,36,34,1,4,22,50,1,64,1,10,31,60,10,52,1,0,10,10,1,28,71

%N a(n) = (9^n-1)/8 mod n.

%H Antti Karttunen, <a href="/A094924/b094924.txt">Table of n, a(n) for n = 1..16384</a>

%H Antti Karttunen, <a href="/A094924/a094924.txt">Data supplement: n, a(n) computed for n = 1..65537</a>

%t Table[Mod[(9^n-1)/8,n],{n,90}] (* _Harvey P. Dale_, Dec 23 2023 *)

%o (PARI) A094924(n) = lift(Mod((9^n-1)/8,n)); \\ _Antti Karttunen_, May 19 2020

%Y Cf. A002452, A094918, A094920.

%K nonn

%O 1,6

%A _N. J. A. Sloane_, Jun 18 2004