

A192607


Nonludic numbers: complement of A003309.


24



4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 19, 20, 21, 22, 24, 26, 27, 28, 30, 31, 32, 33, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 62, 63, 64, 65, 66, 68, 69, 70, 72, 73, 74, 75, 76, 78, 79, 80, 81, 82, 84, 85, 86, 87
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



FORMULA



MATHEMATICA

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];
nmax = 1000;


PROG

(Haskell)
a192607 n = a192607_list !! (n1)
a192607_list = filter ((== 0) . a192490) [1..]


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



