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 A097448 #21 Jul 22 2024 10:14:43
%S A097448 0,1,2,3,2,5,6,7,8,3,10,11,12,13,14,15,4,17,18,19,20,21,22,23,24,5,26,
%T A097448 27,28,29,30,31,32,33,34,35,6,37,38,39,40,41,42,43,44,45,46,47,48,7,
%U A097448 50,51,52,53,54,55,56,57,58,59,60,61,62,63,8,65,66,67,68,69,70,71,72,73,74
%N A097448 If n is square, replace it with sqrt(n).
%F A097448 Sum_{n>=1} (-1)^(n+1)/n = 2*log(2) - Pi^2/12 = A016627 - A072691. - _Amiram Eldar_, Jul 07 2024
%e A097448 Among the first five integers 0, 1, 2, 3, and 4 the squares are 0, 1, and 4. Thus the first five terms in the sequence are 0, 1, 2, 3, and 2.
%t A097448 Table[If[IntegerQ[Sqrt[n]],Sqrt[n],n],{n,0,100}] (* _Harvey P. Dale_, Jul 09 2017 *)
%o A097448 (PARI) g(n) = for(x=0,n,if(issquare(x),y=sqrt(x),y=x);print1(floor(y)","))
%o A097448 (PARI) for(n=0,74,print1(if(issquare(n,&m),m,n)", ")) \\ _Zak Seidov_, Feb 21 2013
%Y A097448 Cf. A016627, A072691, A097449.
%K A097448 nonn,easy
%O A097448 0,3
%A A097448 _Cino Hilliard_, Aug 23 2004