|
%I #10 Jun 06 2021 02:53:43
%S 6,6,60,63,66,65,68,608,69,609,62,629,615,602,611,636,649,610,603,639,
%T 657,632,664,623,679,606,618,642,654,678,635,655,685,695,6109,604,628,
%U 652,668,692,6086,6154,6112,6176,6107,6169,633,669,681,687,699,6214
%N Least nontrivial multiple of the n-th prime beginning with 6.
%t f[n_] := Block[{k = 2, m = n}, While[ IntegerDigits[k*m][[1]] != 6, k++ ]; k*m]; Table[ f[ Prime[n]], {n, 1, 55}]
%o (Python)
%o from sympy import prime
%o def a(n):
%o pn = prime(n)
%o m = 2*pn
%o while str(m)[0] != '6': m += pn
%o return m
%o print([a(n) for n in range(1, 53)]) # _Michael S. Branicky_, Jun 06 2021
%Y Cf. A078285, A078286, A078287, A078288, A078289, 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
|
