A190679 Positions of 2 in A190676.

1, 4, 8, 12, 15, 16, 19, 23, 27, 30, 31, 34, 38, 42, 45, 46, 49, 53, 56, 57, 60, 64, 68, 71, 72, 75, 79, 83, 86, 87, 90, 94, 98, 101, 102, 105, 109, 112, 113, 116, 120, 124, 127, 128, 131, 135, 139, 142, 143, 146, 150, 154, 157, 161, 165, 168, 169, 172, 176, 180, 183, 184, 187, 191, 195, 198, 199, 202, 206, 209, 210, 213, 217, 221

Offset: 1

Author

Clark Kimberling, May 16 2011

Keywords

• nonn

Comments

See A190676.

Crossrefs

Cf. A190676.

Programs

Mathematica

(See A190676.)
Flatten[Position[Table[Floor[3n Sqrt[3]]-3Floor[n Sqrt[3]],{n,240}],2]] (* Harvey P. Dale, Mar 24 2013 *)

Extensions

Cross reference in name corrected by Harvey P. Dale, Mar 24 2013