OFFSET
1,3
COMMENTS
It is easy to see that all the terms of A003215 also belong to this sequence (thus infinite), since they can be represented as (p+1)^2 - p^2 and as (q+1)^3 - q^3. - Giovanni Resta, Feb 15 2006
MATHEMATICA
t = {}; Do[a = (m + 1)^k - m^k; If[a < 3000, AppendTo[t, a]], {m, 3000}, {k, 23}]; t = Split@ Sort@ t; Union@ Flatten@ t[[Select[ Range@1500, Length@t[[ # ]] > 1 &]]] (* Robert G. Wilson v, Feb 08 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 30 2006
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Feb 08 2006
Corrected and extended by Giovanni Resta, Feb 15 2006
STATUS
approved