|
%I #6 Jul 29 2015 01:12:50
%S 3,4,5,6,7,8,9,10,11,12,14,16,17,18,19,20,21,22,23,24,26,27,29,33,35,
%T 36,40,41,42,44,45,46,48,49,51,59,60,62,63,64,65,66,67,68,70,75,76,78,
%U 82,83,84,86,87,88,90,91,92,93,94,95,96,103,109,110,113,114,115,116,117
%N Numbers n such that 3*prime(n) - prime(n+1) - 3 is prime.
%e a(2)=4 since 3*prime(4) - prime(5) - 3 = 3*7 - 11 - 3 = 7 is prime.
%t Select[ Range[120], PrimeQ[3Prime[ # ] - Prime[ # + 1] - 3] &] (* _Robert G. Wilson v_, Nov 20 2004 *)
%K nonn
%O 1,1
%A _Giovanni Teofilatto_, Nov 18 2004
%E More terms from _Robert G. Wilson v_, Nov 20 2004
|
