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
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.
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