(38G) Decimated Sequence & partial Sums (NOT OEIS A025715)

[Gerald H]

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):