OFFSET
1,1
COMMENTS
Is this sequence infinite?
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
dbQ[n_, b_] := SameQ @@ DigitCount[n, b, Range[0, b - 1]]; With[{digMax = 3, termsNumber = 24}, Select[Union @@ Table[(FromDigits[#, 4] &) /@ Select[Permutations[Flatten[Table[Range[0, 3], k]]], #[[1]] > 0 &], {k, 1, digMax}], dbQ[#, 2] && dbQ[#, 3] &][[1 ;; termsNumber]]] (* Amiram Eldar, Feb 15 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved