|
| |
|
|
A065734
|
|
Largest square <= sigma(n).
|
|
1
| |
|
|
1, 1, 4, 4, 4, 9, 4, 9, 9, 16, 9, 25, 9, 16, 16, 25, 16, 36, 16, 36, 25, 36, 16, 49, 25, 36, 36, 49, 25, 64, 25, 49, 36, 49, 36, 81, 36, 49, 49, 81, 36, 81, 36, 81, 64, 64, 36, 121, 49, 81, 64, 81, 49, 100, 64, 100, 64, 81, 49, 144, 49, 81, 100, 121, 81, 144, 64, 121, 81, 144
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
|
FORMULA
| a(n)=A048760(A000203(n)).
|
|
|
MATHEMATICA
| Table[Floor[Sqrt[sigma(n)]//N]^2, {w, 1, 50}]
|
|
|
PROG
| (PARI) { for (n=1, 1000, a=sqrtint(sigma(n))^2; write("b065734.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Oct 28 2009]
(Maxima)
A000203(n) := divsum(n) ;
A048760(n) := (floor(sqrt(n)))^2 ;
A065734(n) := A048760(A000203(n)) ;
for n from 1 thru 10 do print(A065734(n)) ; /* R. J. Mathar, Feb 13 2012 */
|
|
|
CROSSREFS
| Cf. A048760, A000203, A065730-A065741
Sequence in context: A011412 A183030 A176213 * A200600 A048761 A075561
Adjacent sequences: A065731 A065732 A065733 * A065735 A065736 A065737
|
|
|
KEYWORD
| easy,nonn,changed
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Nov 15 2001
|
| |
|
|
