A188435 Positions of 1 in A188433; complement of A188434.

1, 3, 4, 6, 7, 8, 9, 11, 12, 14, 15, 16, 17, 19, 20, 21, 22, 24, 25, 27, 28, 29, 30, 32, 33, 35, 36, 37, 38, 40, 41, 42, 43, 45, 46, 48, 49, 50, 51, 53, 54, 55, 56, 58, 59, 61, 62, 63, 64, 66, 67, 69, 70, 71, 72, 74, 75, 76, 77, 79, 80, 82, 83, 84, 85, 87, 88, 90, 91, 92, 93, 95, 96, 97, 98, 100, 101, 103, 104, 105, 106, 108, 109, 110, 111, 113, 114, 116, 117, 118, 119

Offset: 1

Author

Clark Kimberling, Mar 31 2011

Keywords

• nonn

Comments

See A188433.

Is a(n) = A188010(n+1) for n>=2? - R. J. Mathar, Apr 01 2011

Yes, this follows from A188433(n) = 1 - A188009(n), for n > 2, using [-x] = -[x] - 1 for non-integer x. This implies the above and also A188434(n) = A101868(n+1) = A101866(1,n+1) for all n > 1. - M. F. Hasler, Dec 14 2017

Crossrefs

Cf. A188433, A188434, A188294.

Programs

Mathematica

Flatten[Position[A188433, 1]] (* moved here from A188433 by M. F. Hasler, Dec 14 2017 *)