OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
234 + sigma(234) = 780 = T(39).
MATHEMATICA
trnoQ[n_]:=IntegerQ[(Sqrt[1+8n]-1)/2]; Select[Range[10000], trnoQ[#+ DivisorSigma[ 1, #]]&] (* Harvey P. Dale, Apr 26 2014 *)
PROG
(PARI) isok(n) = ispolygonal(n + sigma(n), 3); \\ Michel Marcus, Jan 25 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved