|
|
A070203
|
|
Number of scalene integer triangles with perimeter n having integral inradius.
|
|
4
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 0, 2, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 3, 0, 0, 0, 1, 0, 1, 0, 1, 0, 2, 0, 2, 0, 0, 0, 1, 0, 1, 0, 2, 0, 0, 0, 8, 0, 0, 0, 1, 0, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,36
|
|
COMMENTS
|
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Incircle.
|
|
PROG
|
(Ruby)
def A(n)
cnt = 0
(1..n / 3).each{|a|
(a + 1..(n - a) / 2).each{|b|
c = n - a - b
if a + b > c && b < c
s = n / 2r
t = (s - a) * (s - b) * (s - c) / s
if t.denominator == 1
t = t.to_i
cnt += 1 if Math.sqrt(t).to_i ** 2 == t
end
end
}
}
cnt
end
(1..n).map{|i| A(i)}
end
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|