OFFSET
1,1
COMMENTS
A proper subset of A036057.
EXAMPLE
125 is in the sequence since 5^(1+2) but 121 is not in the sequence. We do not accept 11^2 since 11 is the concatenation of two digits.
MATHEMATICA
ops = {Plus, Subtract, Times, Divide, Power}; fQ[n_] := Length@ Select[ Groupings[ Permutations@ IntegerDigits@ n, ops -> 2], # == n &] > 0; k = 1; lst = {}; While[k < 1001, If[fQ@k, AppendTo[lst, k]]; k++]; lst (* requires Mathematica version 11 or better *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman and Robert G. Wilson v, Jan 01 2017
STATUS
approved