login
A190158
Positions of 2 in A189463.
7
3, 4, 8, 12, 16, 20, 21, 25, 29, 33, 37, 38, 41, 42, 46, 50, 54, 55, 58, 59, 63, 67, 71, 72, 75, 76, 80, 84, 88, 92, 93, 97, 101, 105, 109, 110, 113, 114, 118, 122, 126, 127, 130, 131, 135, 139, 143, 144, 147, 148, 152, 156, 160, 164, 165, 169, 173, 177, 181, 182, 185, 186, 190, 194, 198, 199, 202, 203, 207, 211, 215, 216, 219, 220
OFFSET
1,1
COMMENTS
See A189463.
LINKS
MATHEMATICA
r = 5^(1/2);
f[n_] := Floor[3 n*r] - 3*Floor[n*r];
t = Table[f[n], {n, 1, 220}] (* A189463 *)
Flatten[Position[t, 0]] (* A189464 *)
Flatten[Position[t, 1]] (* A189465 *)
Flatten[Position[t, 2]] (* A190158 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 22 2011
STATUS
approved