OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
T(30) = 465 and 30 = 2*(4+6+5).
MAPLE
f:= proc(n) local t;
t:= n*(n+1)/2;
if n mod convert(convert(t, base, 10), `+`) = 0 then return t fi
end proc:
map(f, [$1..300]); # Robert Israel, Jan 18 2024
MATHEMATICA
PolygonalNumber[Select[Range[300], Divisible[#, Total[IntegerDigits[# (# + 1) / 2]]]&]] (* Paolo Xausa, Jan 18 2024 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 14 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 18 2002
Offset corrected by Sean A. Irvine, Dec 17 2023
STATUS
approved