#号如何再套一个#号？

做欧拉43的时候
其中#AAA是外层的。
Total[If[#AAA[[1]] != 0 &&
And @@ (Divisible[FromDigits@#AAA[[# ;; # + 2]], Prime[# - 1]] & /@
Range[2, 8]), FromDigits[#AAA], 0] & /@
Permutations[{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}]]
抛开题目不说。
这样该如何做到呢