|
Search: id:A093670
|
|
|
| A093670 |
|
Numbers having a unique representation as ab+ac+bc, with 1 <= a <= b <= c. |
|
+0
5
|
|
| 3, 5, 7, 8, 9, 12, 13, 14, 16, 25, 28, 34, 37, 46, 82, 142
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Are there more terms?
|
|
REFERENCES
|
See A025052
|
|
EXAMPLE
|
25 is on the list because 25 = 1*1 + 1*12 + 1*12.
|
|
MATHEMATICA
|
oneSol={}; 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>1, Break[]]], {a, 1, lim}, {b, a, lim}]; If[cnt==1, AppendTo[oneSol, n]], {n, 10000}]; oneSol
|
|
CROSSREFS
|
Cf. A025052 (numbers not of the form ab+ac+bc, 1<=a<=b<=c).
Adjacent sequences: A093667 A093668 A093669 this_sequence A093671 A093672 A093673
Sequence in context: A062958 A047486 A120212 this_sequence A049068 A071977 A109404
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Apr 08 2004
|
|
|
Search completed in 0.002 seconds
|
