[go: up one dir, main page]

login
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
OFFSET
1,1
MATHEMATICA
f[n_] := Block[{k = 2, m = n}, While[ IntegerDigits[k*m][[1]] != 8, k++ ]; k*m]; Table[ f[ Prime[n]], {n, 1, 55}]
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