A274284 Numbers that are a product of distinct numbers in A006355.
2, 4, 6, 8, 10, 12, 16, 20, 24, 26, 32, 40, 42, 48, 52, 60, 64, 68, 80, 84, 96, 104, 110, 120, 128, 136, 156, 160, 168, 178, 192, 208, 220, 240, 252, 260, 272, 288, 312, 320, 336, 356, 384, 408, 416, 420, 440, 466, 480, 504, 520, 544, 576, 624, 640, 660, 672
Offset: 1
Examples
8 = 2*4, 480 = 2*4*6*10.
Links
- Clark Kimberling, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A160009.
Programs
-
Mathematica
f[1] = 2; f[2] = 4; z = 32; f[n_] := f[n - 1] + f[n - 2]; f = Table[f[n], {n, 1, z}]; f s = {2}; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s
Comments