A059649 Positions of ones in A059648.

2, 7, 9, 12, 14, 19, 24, 26, 31, 36, 38, 41, 43, 48, 50, 53, 55, 60, 65, 67, 70, 72, 77, 79, 82, 84, 89, 94, 96, 101, 106, 108, 111, 113, 118, 123, 125, 130, 135, 137, 140, 142, 147, 149, 152, 154, 159, 164, 166, 171, 176, 178, 181, 183, 188, 193, 195, 200, 205

Offset: 1

Author

Antti Karttunen, Feb 03 2001

Keywords

• nonn

Crossrefs

First differences: A059650.

Programs

Maple

positions := proc(e,ll) local a,k,l,m; l := ll; m := 1; a := []; while(member(e,l[m..nops(l)],'k')) do a := [op(a),(k+m-1)]; m := k+m; od; RETURN(a); end;

Mathematica

Position[With[{k = Sqrt[2]}, Table[Floor[Floor[k^2*j] - k*Floor[k*j]], {j, 0, 300}]], 1] - 1 // Flatten (* Jean-François Alcover, Mar 06 2016 *)