login
Integers arising in A133677.
1

%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