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 A200995 #19 Feb 16 2025 08:33:16
%S A200995 5,10,13,15,17,19,20,23,25,26,30,31,34,35,37,38,39,40,41,43,45,46,50,
%T A200995 51,52,53,55,57,59,60,61,62,65,67,68,69,70,71,73,74,75,78,79,80,82,83,
%U A200995 85,86,89,90,91,92,93,95,97,100,101,102,103,104,105,106,107,109
%N A200995 Numbers not expressible as a product of Lucas numbers.
%C A200995 a(n+1) - a(n) <= 5 for all n.
%H A200995 Arkadiusz Wesolowski, <a href="/A200995/b200995.txt">Table of n, a(n) for n = 1..10000</a>
%H A200995 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/LucasNumber.html">Lucas Number</a>
%H A200995 <a href="/index/Lu#Lucas">Index entries for Lucas sequences</a>
%e A200995 65 = 5*13 is not the product of Lucas numbers, so 65 is in the sequence.
%t A200995 listMultiply[lst_] := Take[Union@Flatten@Table[lst[[i]]*lst[[j]], {i, Length[lst]}, {j, i}], 46]; A200381 = Nest[listMultiply, LucasL@Range[0, 9], 3]; Complement[Range@Last[A200381], A200381]
%Y A200995 Cf. A000032. Complement of A200381.
%K A200995 nonn
%O A200995 1,1
%A A200995 _Arkadiusz Wesolowski_, Jan 07 2013