A178211 prime(n)^2 mod n.

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, 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, 28, 13, 29, 1, 57, 41, 1, 17, 14, 37, 16, 9, 4, 1, 4, 1, 4, 9, 16

Offset

1,7

Links

Table of n, a(n) for n=1..75.

Formula

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

Mathematica

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

Crossrefs

Cf. A000027, A001248.

Sequence in context: A010254 A178618 A155992 * A305564 A354873 A345301

Adjacent sequences: A178208 A178209 A178210 * A178212 A178213 A178214

Keyword

nonn

Author

Juri-Stepan Gerasimov, Dec 19 2010

Status

approved