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 A037458 #16 Dec 27 2020 16:50:31 %S A037458 1,1,2,3,3,3,4,5,6,6,6,6,7,8,9,10,10,10,10,10,11,12,13,14,15,15,15,15, %T A037458 15,15,16,17,18,19,20,21,21,21,21,21,21,21,22,23,24,25,26,27,28,28,28, %U A037458 28,28,28,28,28,29,30,31,32,33,34,35,36,36,36,36,36,36,36,36,36,37,38 %N A037458 a(1)=1; for n > 1, a(n) = n - a(n-floor(sqrt(n))). %F A037458 a(n) = (1/2)*(n + A053615(n)). %o A037458 (PARI) a(n)=if(n<2,1,n-a(n-sqrtint(n))) %Y A037458 Cf. A028391, A053615. %K A037458 nonn %O A037458 1,3 %A A037458 _Benoit Cloitre_, Dec 22 2002 %E A037458 Corrected by _Franklin T. Adams-Watters_, Oct 25 2006