OFFSET
1,1
COMMENTS
See A190672.
MATHEMATICA
(See A190672.)
With[{r=Sqrt[3]}, Flatten[Position[Table[Floor[(2n+1)r]-2Floor[n r]- Floor[r], {n, 550}], 0]]] (* Harvey P. Dale, Nov 11 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 16 2011
STATUS
approved