A327212 Positions of 0's in {A327211(n) : n > 0}.

1, 3, 5, 7, 8, 10, 12, 14, 15, 17, 19, 21, 24, 26, 28, 31, 33, 35, 37, 39, 40, 42, 44, 46, 47, 49, 51, 53, 56, 58, 60, 63, 65, 67, 70, 72, 74, 76, 78, 79, 81, 83, 85, 86, 88, 90, 92, 95, 97, 99, 102, 104, 106, 108, 110, 111, 113, 115, 117, 118, 120, 122, 124

Offset

1,2

Comments

Although a(n)/n->2, the sequence 2*n-a(n) appears to be unbounded below and above.

Positive integers k such that A327211(k) = 0. - Jianing Song, Sep 30 2019

Links

Clark Kimberling and Jianing Song, Table of n, a(n) for n = 1..10000

Mathematica

r = E; z = 200;
t = Table[Floor[(2 n + 2)*r] - Floor[n*r + 2 r] - Floor[n*r], {n, 1, z}]  (* {A327211(n) : n > 0} *)
Flatten[Position[t, 0]] (* A327212 *)
Flatten[Position[t, 1]] (* A327213 *)

Crossrefs

Cf. A327211, A327213 (complement).

Sequence in context: A059546 A284366 A037086 * A329825 A059565 A329999

Adjacent sequences: A327209 A327210 A327211 * A327213 A327214 A327215

Keyword

nonn,easy

Author

Clark Kimberling, Aug 29 2019

Extensions

Corrected by Jianing Song, Sep 30 2019

Status

approved