This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A085198 #12 Jan 13 2024 10:12:30 %S A085198 0,0,1,0,5,0,1,0,23,2,3,-1,5,0,1,0,119,14,15,-1,17,0,1,-2,23,2,3,-1,5, %T A085198 0,1,0,719,86,87,5,89,6,7,-4,95,8,9,-3,11,-2,-1,-3,119,14,15,-1,17,0, %U A085198 1,-2,23,2,3,-1,5,0,1,0,5039,566,567,53,569,54,55,-4,575,56,57,-3,59,-2,-1,-7,599,62,63,-1,65,0,1,-6,71,2,3,-5,5,-4,-3 %N A085198 Function whose restriction to A014486 gives A071156. %o A085198 (MIT/GNU Scheme) (define (A085198 n) (let loop ((n n) (s 0) (h 1) (i 2) (fi 1)) (cond ((zero? n) s) ((odd? n) (loop (/ (-1+ n) 2) s (-1+ h) i fi)) (else (loop (/ n 2) (+ s (* h fi)) (1+ h) (1+ i) (* fi i)))))) %Y A085198 A071156(n) = a(A014486(n)). %K A085198 sign,base %O A085198 0,5 %A A085198 _Antti Karttunen_, Jun 14 2003