login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A268281 Numbers n such that n-tau(n), phi(n) and n form a Heronian triangle, where tau=A000005 is the number of divisors and phi=A000010 the totient. 2
5, 34, 53, 90, 120, 440, 780, 1954, 120994, 140453, 28813276834 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
For all n, n > tau(n) and n > phi(n) and if n is prime then n-tau(n) = n-2 and phi(n) = n-1. So n = 5 gives the triangle {3, 4, 5} which is a primitive Pythagorean triangle and this is the only one. Other Pythagorean triangles are {30, 16, 34} and {756, 192, 780}, the remainder are only Heronian.
It is not known if this sequence is infinite. Prime numbers in the sequence are 5, 53 and 140453 and generate triangles {3, 4, 5}, {51, 52, 53} and {140451, 140452, 140453}.
If n = 2p where p is prime then n-tau(n) = n-4 and phi(n) = n/2-1. So n = 34 gives the triangle {16, 30, 34}. Similar numbers in this sequence are a(8), a(9) and a(11). See A272365 for generating Heronian triangles with sides n, n-4, n/2-1.
a(12) > 2*10^12. - Giovanni Resta, Apr 14 2016
Next prime value of a(n) after 140453 is > 2*10^5719. See A003500 for generating Heronian triangles with consecutive sides. - Frank M Jackson, Apr 19 2016
A003500(n)+1 is a member of this sequence iff it is prime. Also A272365(n) is a member of this sequence iff A272365(n)/2 is prime. - Frank M Jackson, Apr 29 2016
LINKS
Eric Weisstein's World of Mathematics, Divisor Function
Eric Weisstein's World of Mathematics, Totient Function
Eric Weisstein's World of Mathematics, Heronian Triangle.
EXAMPLE
a(2) = 34 because the triangle so formed has sides 30, 16, 34. It is Heronian with integer area 240 and is also Pythagorean. It is the second Heronian triangle.
The triangle corresponding to a(11) has sides n = 28813276834, n-tau(n) = 28813276830, phi(n) = 14406638416, and area 200960614753814018640.
MATHEMATICA
triples[n_] := ({a, b, c}={n-DivisorSigma[0, n], EulerPhi[n], n}; s=(a+b+c)/2; If[a+b>c&&IntegerQ[Sqrt[s(s-a)(s-b)(s-c)]], {a, b, c}, {}]); lst={}; Do[If[triples[n]!={}, AppendTo[lst, Last[triples[n]]]], {n, 1, 200000}]; lst
CROSSREFS
Sequence in context: A256373 A124936 A213063 * A223137 A068560 A039773
KEYWORD
nonn,more
AUTHOR
Frank M Jackson, Jan 29 2016
EXTENSIONS
a(11) from Giovanni Resta, Apr 14 2016
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 19 19:02 EDT 2024. Contains 371798 sequences. (Running on oeis4.)