%I #6 Feb 12 2018 21:06:32

%S 2,2,3,32,5,72,7,32,27,0,22,72,52,252,75,32,255,72,57,0,252,22,23,72,

%T 25,52,27,252,232,0,372,32,33,272,35,72,37,532,273,0,533,252,2322,352,

%U 225,322,235,2352,735,0,255,52,53,2322,55,2352,57,232,2537,0,732,372,252,2752,325,2772,335,272

%N a(n) = smallest multiple of n using only prime digits, with a(n) = 0 if there are none.

%C Besides multiples of 10, 625 and its odd multiples have a(n)=0. - _Robert Israel_, Feb 12 2018

%H Robert Israel, <a href="/A078239/b078239.txt">Table of n, a(n) for n = 1..10000</a>

%p f := proc (n) local k, k10, j;

%p if n mod 10 = 0 or n mod 625 = 0 then return 0 end if;

%p k10 := select(t -> member(t*n mod 10, {2, 3, 5, 7}), [$1 .. 9]);

%p for j from 0 do

%p for k in k10 do

%p if convert(convert((10*j+k)*n, base, 10), set) subset {2, 3, 5, 7}

%p then return (10*j+k)*n

%p fi

%p od od

%p end proc:

%p map(f, [$1..100]; # _Robert Israel_, Feb 12 2018

%K base,easy,nonn

%O 1,1

%A _Amarnath Murthy_, Nov 23 2002

%E Edited and more terms from _Robert Israel_, Feb 12 2018