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 A274371 #5 Jun 21 2016 11:02:24
%S A274371 1,2,3,6,8,21,24,42,126,144,168,432,504,987,1008,1974,3024,5922,7896,
%T A274371 23688,46368,47376,139104,142128,973728,2178309,4356618,13069854,
%U A274371 17426472,45765216,52279416,104558832,313676496,4807526976,14422580928,100958066496
%N A274371 Numbers that are a product of distinct Fibonacci numbers (A000045) and also a product of distinct Lucas numbers (A000032, including 2).
%C A274371 Contains A273803 as a subsequence.
%e A274371 504 = 3*8*21 = 4*7*18.
%t A274371 s = {1}; z = 60; f = Fibonacci[2 + Range[z]]; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s = Prepend[s, 0]; u = Take[s, 100]
%t A274371 g = LucasL[-1 + Range[z]]; t = {1}; Do[t = Union[t, Select[t*g[[i]], # <= g[[z]] &]], {i, z}]; w = Intersection[s, t]
%Y A274371 Cf. A000032, A000045, A160009, A274280, A273803.
%K A274371 nonn,easy
%O A274371 1,2
%A A274371 _Clark Kimberling_, Jun 19 2016