OFFSET
1,1
MATHEMATICA
a[n_] := a[n] = Block[{k = 2, b = a[n - 1], c = 2 Range[0, 4]}, While[Mod[k*b, 10]==0 || Union@ Join[c, IntegerDigits[k*b]] != c, k++]; k*b]; a[1] = 2; Array[a, 14] (* Robert G. Wilson v, May 26 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Nov 23 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 06 2003
a(14) from Jon E. Schoenfield, Jun 04 2007
a(15) from Chai Wah Wu, Nov 20 2019
a(16) from Chai Wah Wu, Nov 29 2019
STATUS
approved