Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Apr 15 2017 09:47:06
%S 1,4,9,15,20,27,33,41,48,56,64,72,80,89,98,107,116,126,136,146,156,
%T 166,176,187,198,208,219,231,242,253,265,276,288,300,312,324,337,349,
%U 362,374,387,400,413,426,439,452,465,479,492,506,519,533,547,561,575
%N Indices k such that A284896(k-1) and A284896(k) have a different sign.
%H Vaclav Kotesovec, <a href="/A281590/b281590.txt">Table of n, a(n) for n = 1..2612</a>
%e A284896(8) = 73, A284896(9) = -45, sign is changed, so 9 is in the sequence.
%e A284896(14) = -66, A284896(15) = 2794, sign is changed, so 15 is in the sequence.
%t nmax = 1000; A284896 = Rest[CoefficientList[Series[Product[1/(1 + x^k)^(k^2), {k, 1, nmax}], {x, 0, nmax}], x]]; csign = {1}; Do[If[(A284896[[n]] < 0 && A284896[[n+1]] >= 0) || (A284896[[n]] >= 0 && A284896[[n+1]] < 0), csign = Flatten[{csign, n + 1}]], {n, 1, Length[A284896] - 1}]; csign
%Y Cf. A284896, A281591.
%K nonn
%O 1,2
%A _Vaclav Kotesovec_, Apr 14 2017