login
A190247
Positions of 1 in A190245; complement of A190246.
3
1, 2, 6, 7, 9, 12, 13, 14, 18, 19, 21, 24, 25, 26, 30, 31, 33, 35, 36, 38, 41, 42, 43, 47, 48, 50, 53, 54, 55, 59, 60, 62, 65, 66, 67, 70, 71, 72, 76, 77, 79, 82, 83, 84, 88, 89, 91, 94, 95, 96, 100, 101, 105, 106, 108, 111, 112, 113, 117, 118, 120, 123, 124, 125, 129, 130, 132, 135, 137, 140, 141, 142, 146, 147, 149, 152, 153, 154, 158
OFFSET
1,2
LINKS
MATHEMATICA
u = 2^(1/2); v = 2u;
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (*A190245*)
Flatten[Position[t, 0]] (*A190246*)
Flatten[Position[t, 1]] (*A190247*)
CROSSREFS
Sequence in context: A190784 A344167 A061416 * A020897 A020898 A184779
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 06 2011
STATUS
approved