A167622 a(n) = n^3 mod n-th prime.

1, 2, 2, 1, 4, 8, 3, 18, 16, 14, 29, 26, 24, 35, 38, 15, 16, 37, 25, 48, 63, 62, 49, 29, 8, 2, 10, 17, 82, 106, 73, 18, 43, 106, 112, 148, 99, 104, 34, 163, 6, 59, 51, 71, 111, 25, 11, 207, 63, 195, 74, 76, 180, 87, 96, 195, 121, 263, 122, 192, 15, 119, 149, 282, 124, 294

Offset: 1

Author

Zak Seidov, Nov 07 2009

Keywords

• nonn

Links

• Karl-Heinz Hofmann, Table of n, a(n) for n = 1..10000 (first 1000 terms from G. C. Greubel)

Crossrefs

Cf. A069547, A167623.

Programs

Mathematica

(*1*) Table[PowerMod[n,3,Prime[n]],{n,100}]
(*2*) PowerMod[ #,3,Prime[ # ]]&/@Range[100]

PARI

a(n) = lift(Mod(n, prime(n))^3); \\ Michel Marcus, Jan 28 2025

Python

from sympy import sieve
def A167622(n): return pow(n,3,sieve[n]) # Karl-Heinz Hofmann, Jan 28 2025