OEIS A244953: Ridiculous Formula

[DavidM]

I know the goal here was to find the formula for a(n) instead of computing the entire sequence, but I thought I'd include this as a possible solution to creating the list a(0)..a(n) when given n as the argument.

Target platform is 50g with ListExt installed:

Code:

%%HP: T(3)A(R)F(.);
\<<
  3 0 LSEQR                @ creates { 3 2 1 0 }
  OVER 4 / CEIL LMRPT      @ repeat the above enough for at least n elements
  SWAP LTAKE               @ trim the increments list to n elements
  0 ::+ LSCAN              @ start with 0 and build based on increments provided
\>>
@ Size: 58.0 bytes
@ CRC: 3319h

a(5000) ~10.8 seconds in exact mode, ~7.6 seconds in approximate mode.