%I #6 Mar 14 2015 16:23:47

%S 20,21,20,21,22,26,204,209,207,203,217,222,205,215,235,212,236,244,

%T 201,213,219,237,249,267,291,202,206,214,218,226,254,262,274,278,298,

%U 2114,2041,2119,2004,2076,2148,2172,2101,2123,2167,2189,2110,2007,2043,2061

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

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

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

%K base,easy,nonn

%O 1,1

%A _Amarnath Murthy_, Nov 26 2002

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