(38G) Decimated Sequence & partial Sums (NOT OEIS A025715)
02-17-2016, 10:34 AM (This post was last modified: 06-15-2017 01:56 PM by Gene.)
Post: #1
 Gerald H Senior Member Posts: 1,430 Joined: May 2014
(38G) Decimated Sequence & partial Sums (NOT OEIS A025715)
A programme to insert symbolics in the Sequence aplet to produce in U1 the integers without multiples of 10 & in U2 the partial sums of U1.

NB The partial sums are NOT OEIS A025715.

I am not happy with this programme & would be grateful for suggestions on improving the calculation method & reducing the size of programme on the HP 38G.

DECIMATE
Code:
 RUN SEQSET: RECURSE(U,N+FLOOR((N-1)/9),1,2)►U1(N): CHECK 1: RECURSE(U,(N^2+N+FLOOR(N/9)^2-FLOOR(N/9)+U3(N)^2+U3(N)+U4(N)^2+U4(N)+U5(N)^2+U5(N)+U6(N)^2+U6(N)+U7(N)^2+U7(N)+U8(N)^2​+U8(N)+U9(N)^2+U9(N)+U0(N)^2+U0(N))/2,1,3)►U2(N): CHECK 2: RECURSE(U,FLOOR((N-1)/9),0,0)►U3(N):  RECURSE(U,FLOOR((N-2)/9),0,0)►U4(N):  RECURSE(U,FLOOR((N-3)/9),0,0)►U5(N):  RECURSE(U,FLOOR((N-4)/9),0,0)►U6(N):  RECURSE(U,FLOOR((N-5)/9),0,0)►U7(N):  RECURSE(U,FLOOR((N-6)/9),0,0)►U8(N):  RECURSE(U,FLOOR((N-7)/9),0,0)►U9(N):  RECURSE(U,FLOOR((N-8)/9),0,0)►U0(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):
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)