OFFSET
1,1
PROG
(Magma) [n: n in [1..100000] | Set(IntegerToSequence(n, 10)) subset {4, 9}]
(PARI) a(n, {p=[4, 9]})={my(v=binary(n+1)); fromdigits(vector(#v-1, i, p[2]*v[i+1]+p[1]*!v[i+1]))} \\ R. J. Cano, Apr 09 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Apr 07 2017
STATUS
approved