OFFSET
0,12
EXAMPLE
a(37)=4 because we can form 3, 7, 37 and 73.
MATHEMATICA
f[n_]:=Length[Select[FromDigits/@Flatten[Rest[Permutations/@Subsets[IntegerDigits[n]]], 1], OddQ]]; Table[f[i], {i, 0, 100}] (* Harvey P. Dale, Jan 29 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
More terms from Erich Friedman
STATUS
approved