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