A190706 Positions of 1 in A190704.
3, 10, 14, 18, 21, 25, 29, 33, 36, 40, 44, 48, 51, 55, 59, 66, 70, 74, 77, 81, 85, 89, 92, 96, 100, 107, 111, 115, 118, 122, 126, 130, 133, 137, 141, 145, 148, 152, 156, 163, 167, 171, 174, 178, 182, 186, 189, 193, 197, 201, 204, 208, 212, 219, 223, 227, 230, 234, 238, 242, 245, 249, 253, 257, 260, 264, 268, 275, 279, 283, 286, 290
Offset: 1
Keywords
Crossrefs
Cf. A190704.
Programs
-
Mathematica
(See A190704.) Position[With[{r=Sqrt[3],nn=300},Table[Floor[(4n+2)r]-4Floor[n r]-Floor[2r],{n,nn}]],1]//Flatten (* Harvey P. Dale, Mar 18 2023 *)
Comments