OFFSET
1,1
MATHEMATICA
Join[{5}, (If[#[[2]]-#[[1]]==1, Nothing, #]&/@Partition[Select[Range[ 63000], NumberDigit[ Surd[#, 3], -1]==7&], 2, 1])[[All, 2]]] (* Requires Mathematica version 12 or later *) (* Harvey P. Dale, Jul 17 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved