12-31-2019, 05:50 PM

For integer input N > -1 the programme returns the Nth element in the sequence

https://oeis.org/A035327

Not a masterpiece but does use ←A.

Imptovements welcome.

https://oeis.org/A035327

Not a masterpiece but does use ←A.

Code:

`«`

« DUP 2 <

IF

THEN 1 SWAP -

ELSE 2 IDIV2

SWAP ←A EVAL 2 * 1

+ SWAP -

END

» → ←A

« ←A EVAL

»

»

Imptovements welcome.