A273592 - OEIS

%I #14 Jun 13 2016 09:02:42

%S 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 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 1,1,0,0,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,1

%N a(n) = A010057(A273555(n)).

%C Related to the distribution of noncube terms in A273555.

%C What is the distribution of 0's in this sequence as n goes to infinity?

%o (PARI) T = thueinit(x^3+1, 1);

%o isA001235(n) = my(v=thue(T, n)); sum(i=1, #v, v[i][1]>=0 && v[i][2]>=v[i][1])>1;

%o lista(nn) = for(n=1, nn, if(isA001235(n), print1(ispower(n-sqrtnint(n, 3)^3, 3), ", ")));

%Y Cf. A001235, A010057, A273555

%K nonn

%O 1,1

%A _Altug Alkan_, May 26 2016