OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..999 [Offset shifted by Georg Fischer, Aug 30 2021]
FORMULA
a(n) = n*A000194(n). - R. J. Mathar, Nov 18 2009
MAPLE
seq(n*round(sqrt(n)), n=0..60); # Georg Fischer, Aug 28 2021
# second Maple program:
a:= n-> n*isqrt(n):
seq(a(n), n=0..60); # Alois P. Heinz, Aug 29 2021
MATHEMATICA
Table[n Round[Sqrt[n]], {n, 0, 60}] (* Harvey P. Dale, Oct 30 2021 *)
PROG
(Magma) [n*Round(Sqrt(n)): n in [0..60]]; // Vincenzo Librandi, May 15 2016
(Python)
from math import isqrt
def A166447(n): return n*((m:=isqrt(n))+int(n-m*(m+1)>=1)) # Chai Wah Wu, Jun 19 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 13 2009
EXTENSIONS
Offset corrected by Georg Fischer, Aug 28 2021
STATUS
approved