login
A245625
Sequence of distinct least nonnegative numbers such that the average of the first n terms is a square.
1
0, 2, 1, 13, 4, 34, 9, 65, 16, 106, 25, 157, 36, 218, 49, 289, 64, 370, 81, 461, 100, 562, 121, 673, 144, 794, 169, 925, 196, 1066, 225, 1217, 256, 1378, 1514, 324, 1693, 361, 1882, 400, 2081, 441, 2290, 484, 2509, 529, 2738, 576, 2977, 625, 3226, 676, 3485, 729, 3754, 784, 4033, 841
OFFSET
1,2
PROG
(PARI) v=[]; n=0; while(n<10^4, num=(vecsum(v)+n); if(num%(#v+1)==0&&vecsearch(vecsort(v), n)==0, for(i=0, n, if(i^2>(num/(#v+1)), break); if(i^2==(num/(#v+1)), print1(n, ", "); v=concat(v, n); n=0; break))); n++)
CROSSREFS
Cf. A085047.
Sequence in context: A037271 A074955 A352571 * A292947 A143663 A064079
KEYWORD
nonn
AUTHOR
Derek Orr, Nov 05 2014
STATUS
approved