A188040 Positions of 1 in A188038; complement of A188039.

1, 3, 4, 5, 6, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 32, 33, 34, 35, 37, 38, 39, 40, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 61, 62, 63, 64, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 78, 79, 80, 81, 83, 84, 85, 86, 87, 88, 90, 91, 92, 93, 95, 96, 97, 98, 99, 100, 102, 103, 104, 105, 107, 108, 109, 110, 112, 113, 114

Offset

1,2

Comments

See A188038 and A188014.

Starting at the second term, it seems to be part of the first column of A120861. - Petros Hadjicostas, Jul 22 2020

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Mathematica

r=2^(1/2)); k=2;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}]   (*A188038*)
Flatten[Position[t, 0]]  (*A188039*)
Flatten[Position[t, 1]]  (*A188040*)

Crossrefs

Cf. A120861, A188014, A188038, A188039.

Sequence in context: A039178 A110911 A103202 * A099352 A047207 A266728

Adjacent sequences: A188037 A188038 A188039 * A188041 A188042 A188043

Keyword

nonn

Author

Clark Kimberling, Mar 19 2011

Status

approved