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 A273803 #25 Nov 06 2018 04:28:51
%S A273803 1,3,21,126,504,987,5922,23688,2178309,13069854,52279416,
%T A273803 10610209857723,63661259146338,254645036585352
%N A273803 Numbers that are a product of distinct Fibonacci numbers (A160009) and also a product of distinct Lucas numbers (A274280).
%C A273803 Is every term greater than 3 divisible by 21?
%e A273803 126 = 2*3*21 = 7*18.
%t A273803 s = {1}; z = 70; f = Fibonacci[2 + Range[z]]; Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}]; s = Prepend[s, 0]; (* A160009 *)
%t A273803 g = LucasL[Range[z]]; t = {1}; Do[t = Union[t, Select[t*g[[i]], # <= g[[z]] &]], {i, z}];
%t A273803 Intersection[s, t]
%Y A273803 Cf. A000204, A000045, A160009, A274280, A274371.
%K A273803 nonn,more
%O A273803 1,2
%A A273803 _Clark Kimberling_, Jun 19 2016