|
PROGRAM
|
(PARI) A137689_v=[3, 4, 5, 7, 8, 9, 10, 11, 15, 16, 23, 24, 26, 47, 48, 54, 78, 79, 80, 243]/*see there*/;
vecsort(vector(#A137689_v, k, denominator(sum(i=1, A137689_v[k], 1/(prime(i)-1)))/*i.e.
A128646(A137689_v[k])*/-1), 0, 8) /* ..., 8 removes duplicate entries in
PARI > 2.4.1 */
|