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,1

Links

Table of n, a(n) for n=1..59.

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 *)

Crossrefs

First differences: A059650.

Sequence in context: A163405 A049638 A190490 * A190500 A165584 A165474

Adjacent sequences: A059646 A059647 A059648 * A059650 A059651 A059652

Keyword

nonn

Author

Antti Karttunen, Feb 03 2001

Status

approved