A078291 - OEIS

%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