%I #6 Mar 14 2015 16:20:18

%S 4,42,40,42,44,403,408,418,46,406,403,407,410,430,423,424,413,427,402,

%T 426,438,474,415,445,485,404,412,428,436,452,4064,4061,411,417,447,

%U 453,471,489,4008,4152,4117,4163,4011,4053,4137,4179,422,446,454,458,466

%N Least nontrivial multiple of the n-th prime beginning with 4.

%t f[n_] := Block[{k = 2, m = n}, While[ IntegerDigits[k*m][[1]] != 4, k++ ]; k*m]; Table[ f[ Prime[n]], {n, 1, 55}]

%Y Cf. A078285, A078286, A078287, A078289, A078290, A078291, A078292, A078293.

%K base,easy,nonn

%O 1,1

%A _Amarnath Murthy_, Nov 26 2002

%E Edited, corrected and extended by _Robert G. Wilson v_, Nov 29 2002