A278517 a(n) = smallest k for which A260731(k) = n.

0, 1, 4, 8, 9, 12, 16, 18, 20, 24, 25, 29, 32, 34, 36, 40, 43, 45, 48, 49, 52, 56, 58, 61, 64, 67, 70, 72, 74, 77, 80, 81, 84, 88, 90, 93, 96, 98, 100, 104, 106, 109, 113, 116, 120, 121, 125, 128, 130, 133, 136, 139, 142, 144, 146, 148, 152, 155, 157, 160, 162, 164, 168, 169, 172, 176, 178, 180, 184, 187, 190, 193, 196, 200

Offset

0,3

Links

Antti Karttunen, Table of n, a(n) for n = 0..11363

Formula

For all n >= 0, A260731(a(n)) = n.

Prog

(Scheme, with memoization-macro definec)
(definec (A278517 n) (if (zero? n) n (let loop ((k (A278517 (- n 1)))) (if (= (A260731 k) n) k (loop (+ 1 k))))))

Crossrefs

Cf. A260731 (a left inverse), A278518 (first differences), A278519, A278521.

Cf. also A002828, A276573.

Sequence in context: A327877 A359468 A034043 * A053443 A360070 A048098

Adjacent sequences: A278514 A278515 A278516 * A278518 A278519 A278520

Keyword

nonn

Author

Antti Karttunen, Nov 28 2016

Status

approved