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 A192607 #26 Dec 10 2021 07:23:52 %S A192607 4,6,8,9,10,12,14,15,16,18,19,20,21,22,24,26,27,28,30,31,32,33,34,35, %T A192607 36,38,39,40,42,44,45,46,48,49,50,51,52,54,55,56,57,58,59,60,62,63,64, %U A192607 65,66,68,69,70,72,73,74,75,76,78,79,80,81,82,84,85,86,87 %N A192607 Nonludic numbers: complement of A003309. %H A192607 Reinhard Zumkeller, <a href="/A192607/b192607.txt">Table of n, a(n) for n = 1..10000</a> %F A192607 A192490(a(n)) = 0. %t A192607 a3309[nmax_] := a3309[nmax] = Module[{t = Range[2, nmax], k, r = {1}}, While[Length[t] > 0, k = First[t]; AppendTo[r, k]; t = Drop[t, {1, -1, k}]]; r]; %t A192607 nmax = 1000; %t A192607 Complement[Range[nmax], a3309[nmax]] (* _Jean-François Alcover_, Dec 10 2021, after _Ray Chandler_ in A003309 *) %o A192607 (Haskell) %o A192607 a192607 n = a192607_list !! (n-1) %o A192607 a192607_list = filter ((== 0) . a192490) [1..] %Y A192607 Cf. A192505 (not ludic but prime), A192506 (neither ludic nor prime). %K A192607 nonn %O A192607 1,1 %A A192607 _Reinhard Zumkeller_, Jul 05 2011