A097448 If n is square, replace 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,3

Links

Table of n, a(n) for n=0..74.

Example

The first five integers 0,1,2,3,4 have squares 0,1,4 thus the first five integers in the seq is 0,1,2,3,2.

Mathematica

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

Prog

(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

Crossrefs

Sequence in context: A350390 A366765 A361253 * A066729 A241592 A211506

Adjacent sequences: A097445 A097446 A097447 * A097449 A097450 A097451

Keyword

nonn

Author

Cino Hilliard, Aug 23 2004

Status

approved