

A078289


Least nontrivial multiple of the nth 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



