login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A094380 Greatest number having exactly n representations as ab+ac+bc with 1 <= a <= b <= c. 4
462, 142, 742, 862, 2170, 2062, 3502, 2962, 5278, 5413, 7282, 8002, 11302, 11278, 14722, 13918, 18778, 21058, 30178, 30493, 30622, 34318, 47338, 31102, 44902, 43717 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

Numbers up to 250,000 were checked. Note that the Mathematica program computes A094379, A094380 and A094381, but outputs only this sequence.

REFERENCES

See A025052

LINKS

Table of n, a(n) for n=0..25.

EXAMPLE

a(1) = 142 because 142 is the largest number with a unique representation: (a,b,c) = (1,10,12).

MATHEMATICA

cntMax=10; nSol=Table[{0, 0, 0}, {cntMax+1}]; Do[lim=Ceiling[(n-1)/2]; 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}, {b, a, 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. A025052 (n having no representations), A093670 (n having one representation), A094379, A094381.

Sequence in context: A101734 A059025 A267200 * A267404 A267343 A267396

Adjacent sequences:  A094377 A094378 A094379 * A094381 A094382 A094383

KEYWORD

nonn

AUTHOR

T. D. Noe, Apr 28 2004

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 21 23:04 EDT 2019. Contains 326169 sequences. (Running on oeis4.)