%I #2 Mar 30 2012 17:34:22
%S 2,5,15,77,187,345,551,1107,1457,1855,2301,3337,4565,5251,6767,7597,
%T 8475,11397,12467,14751,18537,19895,21301,24257,25807,34277,36115,
%U 38001,41917,43947,46025,48151,52547,57135,64377,66887,80157,82955,85801
%N Integers arising in A133677.
%t Union[Table[If[IntegerQ[Prime[n]*(2*Prime[n] - 1)/3], Prime[n]*(2*Prime[n] - 1)/3, {}], {n, 1, 100}]]
%K nonn
%O 1,1
%A _Roger L. Bagula_, Dec 28 2007