[go: up one dir, main page]

login
A278517
a(n) = smallest k for which A260731(k) = n.
6
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
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 A376715 A360070
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 28 2016
STATUS
approved