OFFSET
1,1
COMMENTS
Probably finite.
No further terms up to n = 1 million. - Harvey P. Dale, Apr 15 2018
EXAMPLE
prime(5) * sigma(5) = 11 * 6 = T(12).
prime(7) * sigma(7) = 17 * 8 = T(18).
prime(15) * sigma(15) = 47 * 24 = T(48).
prime(96) * sigma(96) = 503 * 252 = T(503).
MATHEMATICA
Select[Range[200], OddQ[Sqrt[8(Prime[#]DivisorSigma[1, #])+1]]&] (* Harvey P. Dale, Apr 15 2018 *)
PROG
(PARI) isok(n) = ispolygonal(sigma(n)*prime(n), 3); \\ Michel Marcus, Jul 05 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved