|
| |
|
|
A078289
|
|
Least nontrivial multiple of the n-th prime beginning with 5.
|
|
8
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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: A207141 A165871 A171652 * A043618 A134691 A139182
Adjacent sequences: A078286 A078287 A078288 * A078290 A078291 A078292
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 26 2002
|
|
|
EXTENSIONS
| Edited, corrected and extended by Robert G. Wilson (rgwv(AT)rgwv.com), Nov 29 2002
|
| |
|
|
