|
PROGRAM
|
(PARI) A137691v = [1, 2, 3, 4, 5, 6, 10, 11, 12, 13, 14, 18, 38, 376, 377, 378, 379, 380, 381, 382, 383, 384, 385] /*see there*/; A137692 = vecsort(vector(15, k, A128646(A137691v[k])+1), 8) /* ..., 8 removes duplicate entries in PARI > 2.4.1 */
|