A204141 Numbers m such that both m and m/7 are zeroless pandigital numbers (A050289).
864197523, 865749213, 867129543, 871946523, 873526941, 893154276, 893472615, 893542671, 927413865, 928175346, 941687523, 946728153, 951487236, 951634782, 953721846, 956182374, 957312468, 958126743, 963521874, 963824715, 964785213, 971268543, 971568234, 972835164
Offset: 1
Programs
-
Mathematica
Module[{lst=FromDigits/@Permutations[Range[9]],l1,l2},l1=Select[lst,#<141093475&];l2= Select[ lst,#>864*10^6&];Select[l2,MemberQ[l1,#/7]&]] (* Harvey P. Dale, Sep 25 2023 *)
Formula
a(n)=7*A204140(n).
Comments