(38G) OEIS A025581 & A121924 - Printable Version +- HP Forums (https://www.hpmuseum.org/forum) +-- Forum: HP Software Libraries (/forum-10.html) +--- Forum: General Software Library (/forum-13.html) +--- Thread: (38G) OEIS A025581 & A121924 (/thread-3587.html) (38G) OEIS A025581 & A121924 - Gerald H - 04-08-2015 09:20 AM The Programme inserts symbolics in the Sequence Aplet to reproduce the sequence http://oeis.org/A025581 in U1 & its partial sums http://oeis.org/A121924 in U2. The sub-programme SEQSET produces an agreeable environment in the Sequence Aplet for the necessary symbolics. Note: I considered programming this for the Prime but was deterred by the upper limit of 40,000 for indices in the Prime Sequence App - the 38G produces exactly correct results up to 2,000,000 & beyond (I don't know the upper limit for exactly correct) & accordingly decided not to bother. RUN SEQSET: RECURSE(U,COMB(1+ROUND(√(2*N),0),2)-N,0,1)►U1(N): CHECK 1: RECURSE(U,COMB(U3(N),3)+(N-COMB(U3(N),2))*(U3(N)^2+3*U3(N)-2*N-2)/4,0,1)►U2(N): CHECK 2: RECURSE(U,ROUND(√(2*N+.25),0),0,0)►U3(N): SEQSET SELECT Sequence: UNCHECK 0: 0►NumFont: 0►Simult: 2►Angle: 1►InvCross: 1►NumStep: 1►Format: 1►NumCol: 1►NumStart: 6►NumRow: RECURSE(U,0,0,0)►U1(N): Ans►U2(N): Ans►U3(N): Ans►U4(N): Ans►U5(N): Ans►U6(N): Ans►U7(N): Ans►U8(N): Ans►U9(N): Ans►U0(N):