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

70, 72, 70, 70, 77, 78, 714, 76, 713, 725, 713, 74, 738, 731, 705, 742, 708, 732, 737, 710, 730, 711, 747, 712, 776, 707, 721, 749, 763, 791, 762, 786, 7124, 7089, 745, 755, 785, 7009, 7014, 7093, 716, 724, 764, 772, 788, 796, 7174, 7136, 7037, 7099, 7223

Offset

1,1

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A265727 A166506 A345497 * A118216 A256082 A345487

Adjacent sequences: A078288 A078289 A078290 * A078292 A078293 A078294

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