OFFSET
1,1
COMMENTS
Sequence is infinite. If k is a member then so is k^3. Subsidiary sequence: fourth powers sandwiched between two numbers divisible by fourth powers.
EXAMPLE
4913 = 17^3 is a term since 4912 is divisible by 8 and 4914 is divisible by 27.
MATHEMATICA
Select[Range[2, 1000], Last[Union[Transpose[FactorInteger[ #^3 - 1]][[2]]]] > 2 && Last[Union[Transpose[FactorInteger[ #^3 + 1]][[2]]]] > 2 &]^3 (* Tanya Khovanova, Sep 08 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 22 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Sep 27 2003
Offset changed by Andrew Howroyd, Sep 22 2024
STATUS
approved
