%I #8 Nov 21 2013 12:49:25
%S 3,3,5,5,7,17,17,29,31,43,43,53,61,61,67,83,101,103,127,127,137,163,
%T 173,179,179,193,199,257,257,269,277,283,293,311,313,347,349,367,367,
%U 373,379,389,389,401,409,431,433,433,467,503,541,541,577,599,601,601,617
%N Primes of the form (p(n)-2*n)/3, where p(n)=n-th prime.
%e If n=10, then (p(10)-2*10)/3=(29-20)/3=3=a(1).
%e If n=11, then (p(11)-2*11)/3=(31-22)/3=3=a(2).
%e If n=13, then (p(13)-2*13)/3=(41-26)/3=5=a(3).
%e If n=14, then (p(14)-2*14)/3=(43-28)/3=5=a(4).
%e If n=16, then (p(16)-2*16)/3=(53-32)/3=7=a(5).
%e If n=28, then (p(28)-2*28)/3=(107-56)/3=17=a(6), etc.
%t Select[Table[(Prime[n]-2n)/3,{n,400}],PrimeQ] (* _Harvey P. Dale_, May 05 2012 *)
%Y Cf. A000040.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Oct 07 2008
%E Corrected (5 duplicated, 29 inserted, double-43 inserted etc.) by _R. J. Mathar_, Apr 18 2010