%I #11 Jan 18 2020 17:35:53

%S 2,3,5,2,2,5,5,11,23,23,2,3,2,3,11,19,17,29,31,29,41,43,59,79,83,79,

%T 83,79,83,5,5,11,5,23,17,23,31,31,41,47,41,67,59,59,47,83,127,127,109,

%U 109,127,109,149,157,167,179,167,179,179,167,197,257,257,241,241,307,313,3

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

%H Harry J. Smith, <a href="/A065996/b065996.txt">Table of n, a(n) for n = 2..1000</a>

%t Table[Prime[Mod[Prime[n],n]],{n,2,70}] (* _Harvey P. Dale_, Jan 18 2020 *)

%o (PARI) { for (n=2, 1000, a=prime(prime(n)%n); write("b065996.txt", n, " ", a) ) } \\ _Harry J. Smith_, Nov 06 2009

%Y Cf. A000040 (primes).

%K nonn

%O 2,1

%A _Reinhard Zumkeller_, Dec 10 2001