OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10003
FORMULA
PROG
(Scheme)
(define (A260429 n) (cond ((not (zero? (A145649 n))) 1) ((even? n) (+ 1 (/ n 2))) (else (let searchrow ((row 2)) (let searchcol ((col 1)) (cond ((>= (A255543bi row col) n) (if (= (A255543bi row col) n) (+ 1 col) (searchrow (+ 1 row)))) (else (searchcol (+ 1 col))))))))) ;; Code for A255543bi given in A255543.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 29 2015
STATUS
approved