|
|
A078292
|
|
Least nontrivial multiple of the n-th prime beginning with 8.
|
|
8
|
|
|
8, 81, 80, 84, 88, 806, 85, 817, 805, 87, 806, 814, 82, 86, 846, 848, 826, 854, 804, 852, 803, 869, 830, 801, 873, 808, 824, 856, 872, 8023, 889, 8122, 822, 834, 894, 8003, 8007, 815, 835, 865, 895, 8145, 8022, 8106, 8077, 8159, 844, 892, 8172, 8015, 8155
(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]] != 8, k++ ]; k*m]; Table[ f[ Prime[n]], {n, 1, 55}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|