A192607 Nonludic numbers: complement of A003309.

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

Offset: 1

Author

Reinhard Zumkeller, Jul 05 2011

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A192505 (not ludic but prime), A192506 (neither ludic nor prime).

Programs

Haskell

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

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;
Complement[Range[nmax], a3309[nmax]] (* Jean-François Alcover, Dec 10 2021, after Ray Chandler in A003309 *)

Formula

A192490(a(n)) = 0.