The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A025193

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A025193

a(n) = [ 2nd elementary symmetric function of {sqrt(k)} ], k = 1,2,...,n.
(history; published version)

#5 by R. J. Mathar at Fri Sep 23 08:27:55 EDT 2016

STATUS

editing

approved

#4 by R. J. Mathar at Fri Sep 23 08:27:42 EDT 2016

MAPLE

SymmPolyn := proc(L::list, n::integer)

local c, a, sel;

a :=0 ;

sel := combinat[choose](nops(L), n) ;

for c in sel do

a := a+mul(L[e], e=c) ;

end do:

a;

end proc:

A025193 := proc(n)

[seq(sqrt(k), k=1..n)] ;

SymmPolyn(%, 2) ;

floor(%) ;

end proc: # R. J. Mathar, Sep 23 2016

STATUS

approved

editing

#3 by Russ Cox at Fri Mar 30 18:56:01 EDT 2012

AUTHOR

Clark Kimberling (ck6(AT)evansville.edu)

Clark Kimberling

Discussion

Fri Mar 30

18:56

OEIS Server: https://oeis.org/edit/global/285

#2 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003

NAME

a(n) = [ 2nd elem. sym. elementary symmetric function of {sqrt(k)} ], k = 1,2,...,n.

KEYWORD

nonn,new

nonn

AUTHOR

Clark Kimberling (ck6@cedar.(AT)evansville.edu)

#1 by N. J. A. Sloane at Sat Dec 11 03:00:00 EST 1999

NAME

a(n) = [ 2nd elem. sym. function of {sqrt(k)} ], k = 1,2,...,n.

DATA

1, 5, 13, 27, 48, 76, 114, 163, 224, 299, 388, 494, 617, 758, 920, 1104, 1310, 1540, 1796, 2078, 2389, 2729, 3100, 3504, 3940, 4412, 4919, 5464, 6048, 6672, 7338, 8046, 8799, 9597, 10441, 11334, 12277, 13270, 14315, 15414, 16568, 17778, 19045, 20371, 21758, 23205

OFFSET

2,2

KEYWORD

nonn

AUTHOR

Clark Kimberling (ck6@cedar.evansville.edu)

STATUS

approved