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