|
Search: id:A093669
|
|
|
| A093669 |
|
Numbers having a unique representation as ab+ac+bc, with 0 < a < b < c. |
|
+0
6
|
|
| 11, 14, 17, 19, 20, 27, 32, 34, 36, 43, 46, 49, 52, 64, 67, 73, 82, 97, 100, 142, 148, 163, 193
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Are there more terms?
|
|
REFERENCES
|
See A025052
|
|
EXAMPLE
|
11 is on the list because 11 = 1*2+1*3+2*3.
|
|
MATHEMATICA
|
oneSol={}; 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>1, Break[]]], {a, 1, lim-1}, {b, a+1, lim}]; If[cnt==1, AppendTo[oneSol, n]], {n, 10000}]; oneSol
|
|
CROSSREFS
|
Cf. A000926 (numbers not of the form ab+ac+bc, 0<a<b<c).
Sequence in context: A038630 A025058 A025060 this_sequence A084805 A015830 A114948
Adjacent sequences: A093666 A093667 A093668 this_sequence A093670 A093671 A093672
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Apr 08 2004
|
|
|
Search completed in 0.002 seconds
|
