OFFSET
1,1
COMMENTS
a(n) = 1 if (k-1/2)^7 < n < k^7 for some k, otherwise a(n) = 0. - Robert Israel, Mar 04 2024
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local x;
x:= frac(n^(1/7));
if is(x < 1/2) then 0 else 1 fi
end proc:
map(f, [$1..200]); # Robert Israel, Mar 04 2024
MATHEMATICA
Array[ Function[ n, RealDigits[ N[ Power[ n, 1/7 ], 10 ], 2 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved