OFFSET
1,5
COMMENTS
LINKS
FORMULA
Conjecture: a(n) = [C > 0] * C where we start with A := n, B := n - 1, C, m := 0 and until A = B consecutively apply m := m + 1, C := A - B, A := abs(A - m - (A mod m)), B := abs(B - m - (B mod m)). - Mikhail Kurkov, May 19 2025
PROG
(Scheme)
;; Very crude. Find it with two nested loops. (Maybe a closed form exists?)
(define (A278528 n) (cond ((not (zero? (A278169 n))) 0) ((even? n) 1) (else (let searchrow ((row 2)) (let searchcol ((col 1)) (cond ((>= (A278507bi row col) n) (if (= (A278507bi row col) n) row (searchrow (+ 1 row)))) (else (searchcol (+ 1 col)))))))))
;; Code for A278507bi given in A278507.
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 23 2016
STATUS
approved
