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 A276614 #10 Sep 10 2016 10:26:03 %S A276614 0,7,26,21,14,63,59,52,47,40,33,124,115,110,103,96,89,84,77,70,215, %T A276614 208,201,194,187,183,176,171,164,157,150,145,138,131,342,339,330,318, %U A276614 311,304,299,292,285,278,274,267,262,255,248,241,236,229,222,511,506,499,492,487,480,473,466,457,445,438,431,426,419,412,405,401 %N A276614 The infinite trunk of greedy cubes beanstalk with reversed subsections. %H A276614 Antti Karttunen, <a href="/A276614/b276614.txt">Table of n, a(n) for n = 0..10236</a> %F A276614 a(0) = 0; a(1) = 7; for n > 1, if A261225(a(n-1))+1 is not a cube, then a(n) = A261225(a(n-1)), otherwise a(n) = A000578(2+A048766(A261225(a(n-1)))) - 1. %o A276614 (Scheme) %o A276614 (definec (A276614 n) (cond ((zero? n) n) ((= n 1) 7) (else (let ((maybe_next (A261225 (A276614 (- n 1))))) (if (zero? (A010057 (+ 1 maybe_next))) maybe_next (+ -1 (A000578 (+ 2 (A048766 (+ 1 maybe_next)))))))))) %Y A276614 Cf. A000578, A010057, A048766, A261225, A276612, A276613. %K A276614 nonn %O A276614 0,2 %A A276614 _Antti Karttunen_, Sep 07 2016 and Sep 09 2016