A133645 Integers arising in A133677.

2, 5, 15, 77, 187, 345, 551, 1107, 1457, 1855, 2301, 3337, 4565, 5251, 6767, 7597, 8475, 11397, 12467, 14751, 18537, 19895, 21301, 24257, 25807, 34277, 36115, 38001, 41917, 43947, 46025, 48151, 52547, 57135, 64377, 66887, 80157, 82955, 85801

Offset: 1

Author

Roger L. Bagula, Dec 28 2007

Keywords

• nonn

Links

• Robert Price, Table of n, a(n) for n = 1..10018

Programs

Mathematica

Union[Table[If[IntegerQ[Prime[n]*(2*Prime[n] - 1)/3], Prime[n]*(2*Prime[n] - 1)/3, {}], {n, 1, 100}]]