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

50, 51, 50, 56, 55, 52, 51, 57, 506, 58, 527, 518, 533, 516, 517, 530, 531, 549, 536, 568, 511, 553, 581, 534, 582, 505, 515, 535, 545, 565, 508, 524, 548, 556, 596, 5134, 5024, 5053, 501, 519, 537, 543, 573, 579, 591, 597, 5064, 5129, 5221, 5038, 5126

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]] != 5, k++ ]; k*m]; Table[ f[ Prime[n]], {n, 1, 55}]

Crossrefs

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

Sequence in context: A256958 A165871 A171652 * A043618 A296874 A134691

Adjacent sequences: A078286 A078287 A078288 * A078290 A078291 A078292

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