login
Least number whose square and cube, taken together, are pandigital n times.
0

%I #11 Aug 05 2023 22:51:34

%S 69,6534,497375,46839081,4641856941,464162827242,46415911449392,

%T 4641588990290676,464158883559510629

%N Least number whose square and cube, taken together, are pandigital n times.

%C Inspired by A363905.

%C Proper subset of A364023.

%e a(1) is 69 since 69^2 = 4761 and 69^3 = 328509; together they include each of the digits {0, 1, 2, 3, 4, 5, 6, 7, 8, 9} exactly once;

%e a(2) is 6534 since 6534^2 = 42693156 and 6534^3 = 278957081304; together they include each decimal digit exactly twice;

%e a(3) is 497375 since 497375^2 = 247381890625 and 497375^3 = 123041567849609375; together they include each decimal digit exactly three times; etc.

%t f[n_] := Block[{k = Floor[10^(2n-1/3)]}, While[ !MemberQ[{0, 3, 6, 8}, Mod[k, 9]] || Length@ Union[ Count[ Sort[ Join[ IntegerDigits[k^2], IntegerDigits[k^3]]], #] & /@ {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}] > 1, k++]; k]

%Y Cf. A363905, A363927, A364023.

%K base,more,nonn

%O 1,1

%A _Robert G. Wilson v_, Jul 01 2023