OFFSET
0,3
COMMENTS
The sequence is well defined:
- for any k >= 0, the binary expansion of m = A000225(k)^3 has k trailing 1's,
- hence for any n < 2^k, n OR m = m, which is a cube, QED.
LINKS
Rémy Sigrist, Table of n, a(n) for n = 0..8192
Rémy Sigrist, PARI program for A330272
FORMULA
a(n) = 0 iff n is a cube.
a(n) AND n = 0 (where AND denotes the bitwise AND operator).
MATHEMATICA
A330272[n_] := Module[{k = -1}, While[!IntegerQ[CubeRoot[BitOr[n, ++k]]]]; k];
Array[A330272, 60, 0] (* Paolo Xausa, Feb 20 2024 *)
PROG
(PARI) See Links section.
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Dec 08 2019
STATUS
approved