Post Reply 
(49G) OEIS A035327
12-31-2019, 05:50 PM
Post: #1
(49G) OEIS A035327
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.

Code:
«
  « DUP 2 <
    IF
    THEN 1 SWAP -
    ELSE 2 IDIV2
SWAP ←A EVAL 2 * 1
+ SWAP -
    END
  » → ←A
  « ←A EVAL
  »
»

Imptovements welcome.
Find all posts by this user
Quote this message in a reply
12-31-2019, 09:11 PM
Post: #2
RE: (49G) OEIS A035327
Hi Gerald

Nice to see you posting sequences again. Thanks especially for posting a program using compiled local variables, which still make my head spin. Studying your program may help. Smile

While I certainly can't improve on your program, I do have one from a completely different angle, based on the structure of the sequence. Given an integer n, this program returns a list of the first 2^(n+1) terms. So for example, given the number 5 the program will return the first 64 terms.

This program also uses the ListExt command LSEQR.

Code:

\<< 1 { 1 0 } ROT 1 SWAP
  START SWAP 2 * SWAP OVER 1 - 0 LSEQR +
  NEXT NIP
\>>
Find all posts by this user
Quote this message in a reply
Post Reply 




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