OFFSET
1,3
MATHEMATICA
Select[Range[0, 100000], IntegerQ@ Sqrt@ BitXor[#^2, #^3] &] (* Michael De Vlieger, Sep 01 2015 *)
PROG
(PARI) is(n)=issquare(bitxor(n^2, n^3)) \\ Anders Hellström, Sep 01 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Sep 01 2015
STATUS
approved