A188397 Positions of 1 in A188395; complement of A188396.

1, 2, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 18, 19, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 35, 36, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 52, 53, 54, 55, 56, 57, 59, 60, 62, 63, 64, 65, 66, 67, 69, 70, 71, 72, 73, 74, 76, 77, 79, 80, 81, 82, 83, 84, 86, 87, 88, 89, 90, 91, 93, 94, 95, 96, 97, 98, 100, 101, 103, 104, 105, 106, 107, 108, 110, 111, 112

Offset: 1

Author

Clark Kimberling, Mar 30 2011

Keywords

• nonn

Comments

See A187950, A188395.

Links

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

Crossrefs

Cf. A187950, A188395, A188396.

Programs

Mathematica

r=2^(-1/2); k=4;
t=Table[Floor[n*r+k*r]-Floor[n*r]-Floor[k*r], {n,1,220}]   (* A188395 *)
Flatten[Position[t,0] ]   (* A188396 *)
Flatten[Position[t,1] ]   (* A188397 *)

PARI

lista(nn) = Vec(select(x->x==1, vector(nn, n, floor((n+4)/sqrt(2)) - floor(n/sqrt(2)) - floor(4/sqrt(2))), 1)); \\ Michel Marcus, Apr 26 2018