OFFSET
1,1
LINKS
Robert Price, Table of n, a(n) for n = 1..10018
MATHEMATICA
Union[Table[If[IntegerQ[Prime[n]*(2*Prime[n] - 1)/3], Prime[n]*(2*Prime[n] - 1)/3, {}], {n, 1, 100}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Dec 28 2007
STATUS
approved
