|
| |
|
|
A033501
|
|
Almost-squares: m such that m/p(m) >= k/p(k) for all k<m, where p(m) is the least perimeter of a rectangle with integer side lengths and area m.
|
|
1
| |
|
|
1, 2, 3, 4, 6, 8, 9, 12, 15, 16, 18, 20, 24, 25, 28, 30, 35, 36, 40, 42, 48, 49, 54, 56, 60, 63, 64, 70, 72, 77, 80, 81, 88, 90, 96, 99, 100, 108, 110, 117, 120, 121, 130, 132, 140, 143, 144, 150, 154, 156, 165, 168, 169, 176, 180, 182, 192, 195, 196, 204, 208, 210
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| Greg Martin, Farmer Ted Goes Natural, Math. Mag. 72 (1999), no. 4, 259-276.
|
|
|
MATHEMATICA
| chs={1}; For[ n=2, n<=99, n++, chs=Join[ chs, Reverse[ Table[ (n-1-i)(n+i), {i, 0, (Sqrt[ 2n-1 ]-1)/2} ] ], Reverse[ Table[ (n-i)(n+i), {i, 0, n/Sqrt[ 2n-1 ]} ] ] ] ]
(*code uses alternate characterization, lists almost-squares up to 99^2*)
|
|
|
CROSSREFS
| Sequence in context: A036407 A145807 A122380 * A097273 A006446 A002348
Adjacent sequences: A033498 A033499 A033500 * A033502 A033503 A033504
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Greg Martin (gerg(AT)alumni.stanford.org); suggested by Jon Grantham.
|
| |
|
|
