A078290 Least nontrivial multiple of the n-th prime beginning with 6.

6, 6, 60, 63, 66, 65, 68, 608, 69, 609, 62, 629, 615, 602, 611, 636, 649, 610, 603, 639, 657, 632, 664, 623, 679, 606, 618, 642, 654, 678, 635, 655, 685, 695, 6109, 604, 628, 652, 668, 692, 6086, 6154, 6112, 6176, 6107, 6169, 633, 669, 681, 687, 699, 6214

Offset

1,1

Links

Table of n, a(n) for n=1..52.

Mathematica

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

Prog

(Python)
from sympy import prime
def a(n):
    pn = prime(n)
    m = 2*pn
    while str(m)[0] != '6': m += pn
    return m
print([a(n) for n in range(1, 53)]) # Michael S. Branicky, Jun 06 2021

Crossrefs

Cf. A078285, A078286, A078287, A078288, A078289, A078291, A078292, A078293.

Sequence in context: A075179 A321971 A074949 * A269888 A269767 A065239

Adjacent sequences: A078287 A078288 A078289 * A078291 A078292 A078293

Keyword

base,easy,nonn

Author

Amarnath Murthy, Nov 26 2002

Extensions

Edited, corrected and extended by Robert G. Wilson v, Nov 29 2002

Status

approved