%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 nth 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
