OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 100], DigitCount[#, 12, 7] == DigitCount[#, 12, 9] &] (* Vincenzo Librandi, Oct 20 2012 *)
PROG
(Magma) [n: n in [0..100] | Multiplicity(S, 7) eq Multiplicity(S, 9) where S is {*d: d in Intseq(n, 12)*}]; // Bruno Berselli, Oct 20 2012
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
An incorrect g.f. was deleted by N. J. A. Sloane, Sep 13 2009
STATUS
approved