A191103 Positions of 0 in A190893.

3, 6, 7, 10, 14, 17, 21, 24, 28, 31, 35, 38, 39, 42, 45, 46, 49, 53, 56, 60, 63, 67, 70, 74, 77, 78, 81, 85, 88, 92, 95, 99, 102, 106, 109, 110, 113, 116, 117, 120, 124, 127, 131, 134, 138, 141, 145, 148, 149, 152, 156, 159, 163, 166, 170, 173, 177, 180, 181, 184, 187, 188, 191, 195, 198, 202, 205, 209, 212, 216, 219, 220

Offset

1,1

Comments

See A190893.

Links

Table of n, a(n) for n=1..72.

Mathematica

f[n_] := Floor[3 n*E] - 3*Floor[n*E];
t = Table[f[n], {n, 1, 220}] (* A190893 *)
Flatten[Position[t, 0]]      (* A191103 *)
Flatten[Position[t, 1]]      (* A191104 *)
Flatten[Position[t, 1]]      (* A191105 *)

Crossrefs

Cf. A190893, A191104, A191105.

Sequence in context: A047281 A182909 A269903 * A100468 A190685 A035000

Adjacent sequences: A191100 A191101 A191102 * A191104 A191105 A191106

Keyword

nonn

Author

Clark Kimberling, May 26 2011

Status

approved