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

%S 50,51,50,56,55,52,51,57,506,58,527,518,533,516,517,530,531,549,536,

%T 568,511,553,581,534,582,505,515,535,545,565,508,524,548,556,596,5134,

%U 5024,5053,501,519,537,543,573,579,591,597,5064,5129,5221,5038,5126

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

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

%Y Cf. A078285, A078286, A078287, A078288, 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