A186888 Indices of odd Kendall-Mann numbers (A000140).

1, 2, 6, 7, 10, 11, 19, 22, 26, 30, 38, 39, 50, 55, 58, 62, 70, 71, 74, 75, 78, 86, 87, 90, 95, 98, 102, 103, 107, 110, 111, 114, 115, 118, 122, 126, 131, 135, 138, 151, 167, 178, 179, 182, 183, 190, 194, 210, 211, 215, 218, 219, 223, 226, 231, 235, 239, 243, 251, 258, 263, 266, 267, 270, 271, 279, 283, 295, 303, 310, 311, 327, 335, 346

Offset: 1

Author

Robert G. Wilson v, Feb 28 2011

Keywords

• nonn

Comments

Indices of odd terms of A000140, submitted at the request of Alonso del Arte, Feb 27 2011.

Crossrefs

Cf. A000140.

Programs

Mathematica

f[n_] := f[n] = Max@ CoefficientList[ Expand@ Product[ Sum[x^i, {i, 0, j}], {j, n - 1}], x]; Select[ Range@ 350, OddQ[ f@ #] &]