%I #6 Mar 14 2015 16:21:17
%S 70,72,70,70,77,78,714,76,713,725,713,74,738,731,705,742,708,732,737,
%T 710,730,711,747,712,776,707,721,749,763,791,762,786,7124,7089,745,
%U 755,785,7009,7014,7093,716,724,764,772,788,796,7174,7136,7037,7099,7223
%N Least nontrivial multiple of the n-th prime beginning with 7.
%t f[n_] := Block[{k = 2, m = n}, While[ IntegerDigits[k*m][[1]] != 7, k++ ]; k*m]; Table[ f[ Prime[n]], {n, 1, 55}]
%Y Cf. A078285, A078286, A078287, A078288, A078289, A078290, 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