(100LX) Decimated Sequence Equation for Solver

[Gerald H]

Enter the equation in solver, actuate Calc, enter an integer value & store in N, actuate the key Nth_Dec & the programme returns the Nth element of the decimated sequence in

Nth_Dec

& the sum of the first N elements in

Sum_1_N.

Do not actuate Sum_1_N, the value is only for display purposes.

Code:


Nth_Dec=N+IP((N-1)/9)+0*L(Sum_1_N,(SQ(N)+N+SIGMA(x,0,8,1,SQ(IP((N-x)/9)))+SIGMA(x,1,8,1,IP((N-x)/9))-IP(N/9))/2)*Sum_1_N

[Gerald H]

The decimated series is on OEIS here:

https://oeis.org/A067251