[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A280390
Integers that can be written using their individual decimal digits and the operations + - * / ^ but not the concatenation of their digits.
0
25, 125, 127, 128, 216, 289, 343, 347, 625, 736, 1285, 1296, 1792, 2048, 2187
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
Cf. A036057.
Sequence in context: A360640 A172047 A304422 * A225388 A369563 A146945
KEYWORD
base,nonn
AUTHOR
STATUS
approved