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.

A049361 Digitally balanced numbers in both bases 2 and 3.

This page as a plain text file.
%I A049361 #13 Feb 15 2024 01:58:08
%S A049361 572,678,684,8287,8351,8367,8399,8429,8435,8479,8527,8539,8551,8563,
%T A049361 8569,8591,8605,8615,8619,8677,8819,8825,8855,8903,8907,8933,8945,
%U A049361 8975,8983,9017,9065,9161,9295,9303,9307,9309,9323,9371,9387,9401
%N A049361 Digitally balanced numbers in both bases 2 and 3.
%H A049361 Amiram Eldar, <a href="/A049361/b049361.txt">Table of n, a(n) for n = 1..10000</a>
%t A049361 With[{digMax = 3, termsNumber = 100}, Select[Union @@ Table[(FromDigits[#, 3] &) /@ Select[Permutations[Flatten[Table[Range[0, 2], k]]], #[[1]] > 0 &], {k, 1, digMax}], SameQ @@ DigitCount[#, 2, Range[0, 1]] &][[1 ;; termsNumber]]] (* _Amiram Eldar_, Feb 15 2024 *)
%Y A049361 Intersection of A031443 and A049354.
%K A049361 nonn,base
%O A049361 1,1
%A A049361 _Harvey P. Dale_