cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A364024 #11 Aug 05 2023 22:51:34
%S A364024 69,6534,497375,46839081,4641856941,464162827242,46415911449392,
%T A364024 4641588990290676,464158883559510629
%N A364024 Least number whose square and cube, taken together, are pandigital n times.
%C A364024 Inspired by A363905.
%C A364024 Proper subset of A364023.
%e A364024 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 A364024 a(2) is 6534 since 6534^2 = 42693156 and 6534^3 = 278957081304; together they include each decimal digit exactly twice;
%e A364024 a(3) is 497375 since 497375^2 = 247381890625 and 497375^3 = 123041567849609375; together they include each decimal digit exactly three times; etc.
%t A364024 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 A364024 Cf. A363905, A363927, A364023.
%K A364024 base,more,nonn
%O A364024 1,1
%A A364024 _Robert G. Wilson v_, Jul 01 2023