cp's OEIS Frontend

A289552 Zeroless pandigital numbers (each digit 1-9 used exactly once) where the first 3 digits plus the next 3 digits equals the last 3 digits.

%I A289552 #34 Feb 16 2025 08:33:48
%S A289552 124659783,125739864,127359486,127368495,128367495,128439567,
%T A289552 129357486,129438567,129654783,129735864,134658792,135729864,
%U A289552 138429567,138654792,139428567,139725864,142596738,142695837,143586729,145692837,146583729,146592738,152487639,152784936
%N A289552 Zeroless pandigital numbers (each digit 1-9 used exactly once) where the first 3 digits plus the next 3 digits equals the last 3 digits.
%H A289552 Jonathan Schwartz, <a href="/A289552/b289552.txt">Table of n, a(n) for n = 1..336</a>
%H A289552 David A. Corneth, <a href="/A289552/a289552.gp.txt">PARI program</a>
%H A289552 Eric Weisstein, World of Mathematics, <a href="https://mathworld.wolfram.com/PandigitalNumber.html">Pandigital Number</a>.
%e A289552 124659783: 124 + 659 = 783.
%t A289552 FromDigits/@Select[Permutations[Range[9]],FromDigits[Take[#,3]]+FromDigits[ Take[ #,{4,6}]] == FromDigits[Take[#,-3]]&] (* _Harvey P. Dale_, Oct 18 2022 *)
%o A289552 (Java) import java.util.*;public class Sequence{public static void main(String[] args) {
%o A289552 for (long i = 123456789l; i < 987654321l; i++)
%o A289552 {Set<Character> set = new HashSet<Character>();String number = Long.toString(i);
%o A289552 if (!(number.contains("0"))) {
%o A289552 for (int n = 0; n < 9; n++) {set.add(number.charAt(n));}
%o A289552 if (set.size() == 9){
%o A289552 if(Integer.valueOf(number.substring(0,3))+Integer.valueOf(number.substring(3,6))==Integer.valueOf(number.substring(6,9)))
%o A289552 {System.out.print(i + ", ");}}}}}}
%o A289552 (Python)
%o A289552 from itertools import permutations
%o A289552 def t2i(t): return int("".join(map(str, t)))
%o A289552 alst = [t2i(p) for p in permutations(range(1, 10)) if t2i(p[:3]) + t2i(p[3:6]) == t2i(p[6:])]
%o A289552 print(alst) # _Michael S. Branicky_, May 30 2022
%Y A289552 Cf. A050289, A286846, A289544.
%K A289552 nonn,base,fini,full
%O A289552 1,1
%A A289552 _Jonathan Schwartz_, Aug 02 2017