1,1

Jonathan Schwartz, Table of n, a(n) for n = 1..336

David A. Corneth, PARI program

459173286: 459 - 173 = 286.

FromDigits/@Select[Permutations[Range[9]], FromDigits[Take[#, 3]]-FromDigits[ Take[ #, {4, 6}]]==FromDigits[Take[#, -3]]&] (* Harvey P. Dale, Aug 08 2020 *)

(Java) import java.util.*; public class GenerateSequence {public static void main(String[] args) { Set<Integer> seq = new TreeSet<Integer>(); for (long i = 123456789l; i < 987654321; i++) {Set<Character> set = new HashSet<Character>(); String number = Long.toString(i); if (!(number.contains("0"))) {for (int n = 0; n < 9; n++){set.add(number.charAt(n)); } if (set.size() == 9) {if (Integer.valueOf(number.substring(0, 3)) - Integer.valueOf(number.substring(3, 6)) == Integer.valueOf(number.substring(6, 9))) { seq.add(i); } } } System.out.println(seq); } }

(Python)

from itertools import permutations

def t2i(t): return int("".join(map(str, t)))

alst = [t2i(p) for p in permutations(range(1, 10)) if t2i(p[:3]) - t2i(p[3:6]) == t2i(p[6:])]

print(alst) # Michael S. Branicky, May 30 2022

Cf. A050289, A286845, A289544, A289552.

A subsequence of A290725.

Sequence in context: A038830 A038819 A351430 * A349747 A323653 A246548

Adjacent sequences: A286843 A286844 A286845 * A286847 A286848 A286849

nonn,base,fini,full

Jonathan Schwartz, Aug 01 2017

approved