OFFSET
1,2
EXAMPLE
The array starts in row n=0 as:
1, 5, 7, 11, 13, 17, 19, 23, 25, 29: not divisible by 2 or 3
2, 3, 10, 14, 15, 21, 22, 26, 33, 34: divisible by 2^i*3^(1-i), i<=1
4, 6, 9, 20, 28, 30, 42, 44, 45, 52: divisible by 2^i*3^(2-i), i<=2
8, 12, 18, 27, 40, 56, 60, 84, 88, 90: divisible by 2^i*3^(3-i): i<=3
16, 24, 36, 54, 80, 81, 112, 120, 168, 176
32, 48, 72, 108, 160, 162, 224, 240, 243, 336
64, 96, 144, 216, 320, 324, 448, 480, 486, 672
MATHEMATICA
f[n_] := Plus @@ Last /@ Select[FactorInteger@n, 1 < #[[1]] < 4 &]; g[n_, k_] := Select [Range@ 1100, f@# == n &][[k]]; Table[g[n - k, k], {n, 11}, {k, n}] // Flatten
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Robert G. Wilson v, Dec 19 2009
STATUS
approved