|
| |
|
|
A027384
|
|
Number of distinct products ij with 0 <= i, j <= n.
|
|
9
| |
|
|
1, 2, 4, 7, 10, 15, 19, 26, 31, 37, 43, 54, 60, 73, 81, 90, 98, 115, 124, 143, 153, 165, 177, 200, 210, 226, 240, 255, 268, 297, 309, 340, 355, 373, 391, 411, 424, 461, 481, 502, 518, 559, 576, 619, 639, 660, 684, 731, 748, 779, 801, 828, 851, 904, 926, 957, 979, 1009, 1039
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=0..1000
|
|
|
MAPLE
| L := {}; for i from 0 to n do for j from i to n do L := L union {i*j}; od: od: nops(L);
|
|
|
MATHEMATICA
| u = {}; Table[u = Union[u, n*Range[0, n]]; Length[u], {n, 0, 100}] (* T. D. Noe, Jan 07 2012 *)
|
|
|
PROG
| (Haskell)
import Data.List (nub)
a027384 n = length $ nub [i*j | i <- [0..n], j <- [0..n]]
-- Reinhard Zumkeller, Jan 01 2012
|
|
|
CROSSREFS
| Equals A027424 + 1, n>0.
Cf. A027427, A027425.
Sequence in context: A171926 A171930 A095116 * A022939 A036702 A007983
Adjacent sequences: A027381 A027382 A027383 * A027385 A027386 A027387
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Fred Schwab (fschwab(AT)nrao.edu)
|
| |
|
|
