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 A273592 #14 Jun 13 2016 09:02:42 %S A273592 1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,0,1,1,0,1,0, %T A273592 1,1,1,1,1,1,1,0,1,0,0,1,1,1,1,1,1,1,0,1,0,1,0,1,0,1,1,0,0,0,1,1,1,1, %U A273592 1,1,0,0,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,1 %N A273592 a(n) = A010057(A273555(n)). %C A273592 Related to the distribution of noncube terms in A273555. %C A273592 What is the distribution of 0's in this sequence as n goes to infinity? %o A273592 (PARI) T = thueinit(x^3+1, 1); %o A273592 isA001235(n) = my(v=thue(T, n)); sum(i=1, #v, v[i][1]>=0 && v[i][2]>=v[i][1])>1; %o A273592 lista(nn) = for(n=1, nn, if(isA001235(n), print1(ispower(n-sqrtnint(n, 3)^3, 3), ", "))); %Y A273592 Cf. A001235, A010057, A273555 %K A273592 nonn %O A273592 1,1 %A A273592 _Altug Alkan_, May 26 2016