%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