|
| |
|
|
A094377
|
|
Greatest number having exactly n representations as ab+ac+bc with 0 < a < b < c.
|
|
4
| |
|
|
1848, 193, 1012, 862, 3040, 2062, 4048, 3217, 7392, 4162, 7837, 8002, 12397, 13297, 14722, 16417, 21253, 21058, 30493, 27358, 34357, 34318, 47338, 40177, 50317, 39502
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Numbers up to 250,000 were checked. Note that the Mathematica program computes A094376, A094377 and A094378, but outputs only this sequence.
|
|
|
REFERENCES
| See A025052
|
|
|
EXAMPLE
| a(1) = 193 because 193 is the largest number with a unique representation: (a,b,c) = (4,7,15).
|
|
|
MATHEMATICA
| cntMax=10; nSol=Table[{0, 0, 0}, {cntMax+1}]; Do[lim=Ceiling[(n-2)/3]; cnt=0; Do[If[n>a*b && Mod[n-a*b, a+b]==0 && Quotient[n-a*b, a+b]>b, cnt++; If[cnt>cntMax, Break[]]], {a, 1, lim-1}, {b, a+1, lim}]; If[cnt<=cntMax, If[nSol[[cnt+1, 1]]==0, nSol[[cnt+1, 1]]=n]; nSol[[cnt+1, 2]]=n; nSol[[cnt+1, 3]]++; ], {n, 10000}]; Table[nSol[[i, 2]], {i, cntMax+1}]
|
|
|
CROSSREFS
| Cf. A000926 (n having no representations), A093669 (n having one representation), A094376, A094378.
Sequence in context: A054814 A123107 A105000 * A080395 A092003 A090783
Adjacent sequences: A094374 A094375 A094376 * A094378 A094379 A094380
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| T. D. Noe (noe(AT)sspectra.com), Apr 28 2004
|
| |
|
|
