A188322 - OEIS

A188322

Positions of 0 in A188321; complement of A188323.

1, 4, 5, 7, 8, 11, 14, 15, 18, 21, 22, 24, 25, 28, 31, 32, 35, 38, 39, 41, 42, 45, 48, 49, 52, 55, 56, 59, 62, 63, 65, 66, 69, 72, 73, 76, 79, 80, 82, 83, 86, 89, 90, 93, 96, 97, 100, 103, 104, 106, 107, 110, 113, 114, 117, 120, 121, 123, 124, 127, 130, 131, 134, 137, 138, 140, 141, 144, 147, 148, 151, 154, 155, 158, 161, 162

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

See A188014.

LINKS

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

MATHEMATICA

r=2^(-1/2); k=5;

t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}] (*A188321*)

Flatten[Position[t, 0]] (*A188322*)

Flatten[Position[t, 1]] (*A188323*)