OFFSET
1,3
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Floor[Sqrt[DivisorSigma[1, n]]]^2, {n, 70}] (* Harvey P. Dale, Oct 05 2015 *)
PROG
(PARI) { for (n=1, 1000, a=sqrtint(sigma(n))^2; write("b065734.txt", n, " ", a) ) } \\ Harry J. Smith, Oct 28 2009
(Maxima)
A000203(n) := divsum(n) ;
A048760(n) := (floor(sqrt(n)))^2 ;
for n from 1 thru 10 do print(A065734(n)) ; /* R. J. Mathar, Feb 13 2012 */
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Labos Elemer, Nov 15 2001
EXTENSIONS
Previous Mathematica program replaced by Harvey P. Dale, Oct 05 2015
STATUS
approved