A097448 If n is square, replace it with sqrt(n).

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, 27, 28, 29, 30, 31, 32, 33, 34, 35, 6, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 7, 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

Offset: 0

Author

Cino Hilliard, Aug 23 2004

Keywords

• nonn
• easy

Examples

			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.
		

Crossrefs

Cf. A016627, A072691, A097449.

Programs

Mathematica

Table[If[IntegerQ[Sqrt[n]],Sqrt[n],n],{n,0,100}] (* Harvey P. Dale, Jul 09 2017 *)

PARI

g(n) = for(x=0,n,if(issquare(x),y=sqrt(x),y=x);print1(floor(y)","))

PARI

for(n=0,74,print1(if(issquare(n,&m),m,n)", ")) \\ Zak Seidov, Feb 21 2013

Formula

Sum_{n>=1} (-1)^(n+1)/n = 2*log(2) - Pi^2/12 = A016627 - A072691. - Amiram Eldar, Jul 07 2024