A372147 - OEIS

A372147

Numbers k for which k and k^2 are digitally balanced numbers in base 3 (A049354).

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..35.

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

Cf. A049354, A353139, A353140.

Sequence in context: A132475 A220024 A251813 * A372864 A045215 A194085

Adjacent sequences: A372144 A372145 A372146 * A372148 A372149 A372150

KEYWORD

nonn,base

AUTHOR

Marius A. Burtea, May 23 2024

STATUS

approved