A076241 Remainder when 2nd order prime pp(n)=A006450(n) is divided by n.

0, 1, 2, 1, 1, 5, 3, 3, 2, 9, 6, 1, 10, 9, 1, 1, 5, 13, 8, 13, 10, 5, 17, 5, 9, 1, 23, 27, 19, 17, 27, 3, 14, 15, 19, 13, 31, 17, 16, 31, 38, 37, 35, 27, 31, 21, 28, 17, 12, 47, 43, 43, 39, 31, 26, 45, 13, 1, 17, 23, 17, 53, 11, 15, 1, 53, 10, 25, 64, 41, 38, 41, 68, 33, 59, 63, 65

Offset

1,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..5000

Formula

a(n) = A006450(n) mod n.

Mathematica

Table[Mod[Prime[Prime[n]], n], {n, 100}] (* Vincenzo Librandi, Jul 10 2017 *)

Prog

(PARI) a(n) = prime(prime(n)) % n; \\ Michel Marcus, Jul 09 2017
(Magma) [NthPrime(NthPrime(n)) mod(n): n in [1..100]]; // Vincenzo Librandi, Jul 10 2017

Crossrefs

Cf. A006450, A038580, A049090, A049203, A049202, A057809, A076240-A076243.

Sequence in context: A259862 A182930 A232187 * A316399 A139347 A288620

Adjacent sequences: A076238 A076239 A076240 * A076242 A076243 A076244

Keyword

nonn

Author

Labos Elemer, Oct 08 2002

Status

approved