A076241 - OEIS

%I #17 Sep 08 2022 08:45:07

%S 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,

%T 27,3,14,15,19,13,31,17,16,31,38,37,35,27,31,21,28,17,12,47,43,43,39,

%U 31,26,45,13,1,17,23,17,53,11,15,1,53,10,25,64,41,38,41,68,33,59,63,65

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

%H Vincenzo Librandi, <a href="/A076241/b076241.txt">Table of n, a(n) for n = 1..5000</a>

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

%t Table[Mod[Prime[Prime[n]], n], {n, 100}] (* _Vincenzo Librandi_, Jul 10 2017 *)

%o (PARI) a(n) = prime(prime(n)) % n; \\ _Michel Marcus_, Jul 09 2017

%o (Magma) [NthPrime(NthPrime(n)) mod(n): n in [1..100]]; // _Vincenzo Librandi_, Jul 10 2017

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

%K nonn

%O 1,3

%A _Labos Elemer_, Oct 08 2002