OFFSET
0,1
MATHEMATICA
With[{upto=17000}, Select[Select[Union[#[[2]]-#[[1]]&/@Subsets[ Range[ 2*Ceiling[Surd[upto, 3]]]^3, {2}]], Mod[#, 10]==2&], #<=upto&]] (* Harvey P. Dale, Aug 30 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved