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