This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A274283 #4 Jun 18 2016 00:39:59 %S A274283 1,5,6,11,17,28,30,45,55,66,73,85,102,118,140,168,187,191,225,270,308, %T A274283 309,330,365,438,476,495,500,510,590,708,765,803,809,840,935,955,1122, %U A274283 1146,1241,1260,1298,1309,1350,1540,1545,1848,1854,2006,2044,2101,2118 %N A274283 Numbers that are a product of distinct numbers in A022095. %C A274283 See the Comment on distinct-product sequences in A160009. %H A274283 Clark Kimberling, <a href="/A274283/b274283.txt">Table of n, a(n) for n = 1..1000</a> %e A274283 30 = 5*6, 330 = 5*6*11. %t A274283 f[1] = 1; f[2] = 5; z = 32; f[n_] := f[n - 1] + f[n - 2]; f = Table[f[n], {n, 1, z}]; f %t A274283 s = {1}; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s %Y A274283 Cf. A160009. %K A274283 nonn,easy %O A274283 1,2 %A A274283 _Clark Kimberling_, Jun 17 2016