This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A059649 #6 Mar 06 2016 10:53:21
%S A059649 2,7,9,12,14,19,24,26,31,36,38,41,43,48,50,53,55,60,65,67,70,72,77,79,
%T A059649 82,84,89,94,96,101,106,108,111,113,118,123,125,130,135,137,140,142,
%U A059649 147,149,152,154,159,164,166,171,176,178,181,183,188,193,195,200,205
%N A059649 Positions of ones in A059648.
%p A059649 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;
%t A059649 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 *)
%Y A059649 First differences: A059650.
%K A059649 nonn
%O A059649 1,1
%A A059649 _Antti Karttunen_, Feb 03 2001