OFFSET
1,1
COMMENTS
All terms are even.
FORMULA
a(n) = 2 * A032810(n).
MATHEMATICA
Table[FromDigits /@ Tuples[{4, 6}, n], {n, 5}] // Flatten (* or *)
Select[Range@ 50000, Total@ Pick[DigitCount@ #, {0, 0, 0, 1, 0, 1, 0, 0, 0, 0}, 0] == 0 &] (* Michael De Vlieger, Apr 02 2017 *)
PROG
(Magma) [n: n in [1..100000] | Set(IntegerToSequence(n, 10)) subset {4, 6}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Apr 02 2017
STATUS
approved