A178211 - OEIS

%I #12 Jun 27 2024 22:18:20

%S 0,1,1,1,1,1,2,1,7,1,4,1,4,1,4,9,13,13,5,1,16,15,12,1,9,9,25,25,20,19,

%T 9,9,25,9,11,13,7,7,4,9,20,1,17,25,19,41,12,1,30,41,25,25,46,37,49,9,

%U 28,13,29,1,57,41,1,17,14,37,16,9,4,1,4,1,4,9,16

%N a(n) = prime(n)^2 mod n.

%F a(n) = A001248(n) mod A000027(n).

%t  f[n_] := Mod[Prime@ n^2, n]; Array[f, 75]

%Y Cf. A000027, A001248.

%K nonn

%O 1,7

%A _Juri-Stepan Gerasimov_, Dec 19 2010