OFFSET
1,1
EXAMPLE
a(2)=4 since 3*prime(4) - prime(5) - 3 = 3*7 - 11 - 3 = 7 is prime.
MATHEMATICA
Select[ Range[120], PrimeQ[3Prime[ # ] - Prime[ # + 1] - 3] &] (* Robert G. Wilson v, Nov 20 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Nov 18 2004
EXTENSIONS
More terms from Robert G. Wilson v, Nov 20 2004
STATUS
approved