|
%I #21 Oct 19 2018 05:56:26
%S 2,2,3,5,13,17,29,31,43,67,71,97,107,109,131,157,181,191,223,233,239,
%T 269,281,313,359,379,383,401,409,431,503,523,569,571,619,631,659,691,
%U 719,751,787,797,857,859,881,883,971,1039,1061,1063,1091,1117,1123
%N a(n) = prime(prime(n) - n).
%C a(n) = A065311(n-2) for 3 < n <= 10000. - _Georg Fischer_, Oct 19 2018
%H Harry J. Smith, <a href="/A065994/b065994.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A000040(A014689(n)). - _Reinhard Zumkeller_, Aug 06 2003
%p A065994:=n->ithprime(ithprime(n)-n): seq(A065994(n), n=1..100); # _Wesley Ivan Hurt_, Jan 21 2017
%t Table[Prime[Prime[n]-n],{n,60}] (* _Harvey P. Dale_, Sep 04 2011 *)
%o (PARI) { for (n=1, 1000, a=prime(prime(n) - n); write("b065994.txt", n, " ", a) ) } \\ _Harry J. Smith_, Nov 06 2009
%Y Cf. A000040, A014689, A065311.
%K nonn,easy
%O 1,1
%A _Reinhard Zumkeller_, Dec 10 2001
|
