login
A372147
Numbers k for which k and k^2 are digitally balanced numbers in base 3 (A049354).
0
500, 544, 550, 552, 588, 622, 307172, 307402, 307888, 308920, 309480, 309522, 309604, 310348, 310422, 310658, 310754, 310964, 310974, 310980, 311206, 311214, 311342, 311466, 311582, 311788, 311790, 312050, 312070, 312100, 313022, 313050, 313336, 313502, 313512
OFFSET
1,1
EXAMPLE
500 = 200112_3 and 500^2 = 250000 =110200221021_3, so 500 is a term.
544 = 202011_3 and 544^2 = 295936 =120000221121_3, so 544 is a term.
MATHEMATICA
balQ[n_, b_] := MinMax@ Differences@ DigitCount[n, b] == {0, 0}; Select[Range[320000], balQ[#, 3] && balQ[#^2, 3] &] (* Amiram Eldar, Jun 03 2024 *)
PROG
(Magma) bal:=func<n|Multiplicity(Intseq(n, 3), 1) eq Multiplicity(Intseq(n, 3), 0) and Multiplicity(Intseq(n, 3), 1) eq Multiplicity(Intseq(n, 3), 2)>; [n:n in [1..320000]|bal(n) and bal(n*n)];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Marius A. Burtea, May 23 2024
STATUS
approved