|
|
A088289
|
|
Triangular numbers in which the sum of the external digits equals the sum of the internal digits.
|
|
1
|
|
|
231, 253, 561, 990, 2211, 4095, 5050, 5151, 6903, 9180, 11325, 11628, 20301, 20503, 31626, 41041, 51040, 53301, 63546, 66066, 67528, 76245, 92665, 95703, 97020, 98346, 99235, 130305, 131328, 161028, 203203, 313236, 343206, 416328, 500500
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
EXAMPLE
|
4095 is a term: 4 + 5 = 9 = 0 + 9.
|
|
MAPLE
|
a:=proc(n) local nn: nn:=convert(n*(n+1)/2, base, 10): if sum(nn[j], j=2..nops(nn)-1)=nn[1]+nn[nops(nn)] then n*(n+1)/2 else fi end: seq(a(n), n=1..1300); # Emeric Deutsch, Aug 06 2005
|
|
MATHEMATICA
|
Do[d = IntegerDigits[n*(n+1)/2]; l = Length[d]; s = d[[1]] + d[[l]]; If[Plus @@ d == 2*s, Print[n*(n+1)/2]], {n, 1, 10^3}] (* Ryan Propper, Aug 06 2005 *)
edidQ[n_]:=Module[{idn=IntegerDigits[n]}, Total[idn[[1]]+idn[[-1]]]== Total[ Most[ Rest[idn]]]]; Select[Accumulate[Range[2000]], edidQ]//Quiet (* Harvey P. Dale, Nov 23 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|