OFFSET
1,1
FORMULA
a(n) = If (7*Prime[n]-1)/2 is prime, then a[m]=(7*Prime[n]-1)/2
MATHEMATICA
a = Delete[Union[Table[If [PrimeQ[(7*Prime[n] - 1)/2] == True, (7*Prime[n] - 1)/2, 0], {n, 1, 1000}]], 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 10 2005
STATUS
approved