A078285 - OEIS

A078285

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

10, 12, 10, 14, 110, 104, 102, 114, 115, 116, 124, 111, 123, 129, 141, 106, 118, 122, 134, 142, 146, 158, 166, 178, 194, 1010, 1030, 1070, 1090, 1017, 1016, 1048, 1096, 1112, 1043, 1057, 1099, 1141, 1002, 1038, 1074, 1086, 1146, 1158, 1182, 1194, 1055

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

FORMULA

a(n) = ceiling(10^d/prime(n))*prime(n) where prime(n) has d digits. - Robert Israel, Jul 21 2020

MAPLE

g:= proc(n) ceil(10^(ilog10(n)+1)/n)*n end proc:

seq(g(ithprime(n)), n=1..100); # Robert Israel, Jul 21 2020

MATHEMATICA

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