|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|