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 A184624 #11 Sep 08 2022 08:45:55 %S A184624 1,2,3,5,6,8,9,11,12,13,15,16,18,19,20,22,23,25,26,28,29,30,32,33,35, %T A184624 36,37,39,40,42,43,45,46,47,49,50,52,53,54,56,57,59,60,61,63,64,66,67, %U A184624 69,70,71,73,74,76,77,78,80,81,83,84,86,87,88,90,91,93,94,95,97,98,100,101,102,104,105,107,108 %N A184624 a(n) = floor(n*r +h), where r=sqrt(2), h=-1/4; complement of A184619. %H A184624 G. C. Greubel, <a href="/A184624/b184624.txt">Table of n, a(n) for n = 1..10000</a> %t A184624 r=2^(1/2); h=-1/4; s=r/(r-1); %t A184624 Table[Floor[n*r+h],{n,1,120}] (* A184624 *) %t A184624 Table[Floor[n*s+h-h*s],{n,1,120}] (* A184625 *) %o A184624 (PARI) for(n=1, 100, print1(floor(n*sqrt(2) - 1/4), ", ")) \\ _G. C. Greubel_, Apr 20 2018 %o A184624 (Magma) [Floor(n*Sqrt(2) - 1/4): n in [1..100]]; // _G. C. Greubel_, Apr 20 2018 %Y A184624 Cf. A184618, A184625. %K A184624 nonn %O A184624 1,2 %A A184624 _Clark Kimberling_, Jan 18 2011