A227201 Areas of Pythagorean triangles with areas that use all ten decimal digits exactly once.
1072493856, 1075948326, 1235976840, 1239084756, 1253684790, 1253894670, 1263984750, 1265738940, 1270953864, 1279635840, 1287349560, 1287463950, 1295738640, 1297836540, 1298647350, 1328405976, 1329754860, 1346589720, 1357962840, 1376925480, 1382974560
Offset: 1
Links
- T. D. Noe, Table of n, a(n) for n = 1..515
Crossrefs
Cf. A024365.
Programs
-
Mathematica
mx = 10^10; mn = mx/10; nn = Ceiling[mx^(1/3)]; If[OddQ[nn], nn + 1]; t = Union[Flatten[Table[If[GCD[u, v] == 1 && Mod[u, 2] + Mod[v, 2] == 1, u v (u^2 - v^2), 0], {u, nn}, {v, u - 1}]]]; t2 = Select[Rest[t], # < mx &]; t3 = {}; Do[num0 = Ceiling[Sqrt[mn/n]]; num1 = Floor[Sqrt[mx/n]]; Do[num = i^2*n; If[Length[Union[IntegerDigits[num]]] == 10, AppendTo[t3, num]], {i, num0, num1}], {n, t2}]; t3 = Union[t3] (* T. D. Noe, Sep 20 2013 *)
Comments