
MATHEMATICA

alphabet={"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"};
candidates=AppendTo[AppendTo[Range[19], Table[10*i, {i, 2, 10}]], Table[10^i, {i, 3, 63, 3}]]//Flatten//Quiet;
f[10]=f[11]=f[26]=1; f[n_]:=Module[{k=1},
While[StringContainsQ[ToString[IntegerName[candidates[[k]], "Words"]], alphabet[[n]]]!=True, k++]; candidates[[k]]];
f/@Range[26] (* Ivan N. Ianakiev, Apr 10 2018 *)
