login
A266399
a(n) = A188163(A088359(n)); positions where A004001 obtains unique values.
3
5, 9, 10, 17, 18, 19, 22, 33, 34, 35, 36, 39, 40, 43, 49, 65, 66, 67, 68, 69, 72, 73, 74, 77, 78, 81, 87, 88, 91, 97, 107, 129, 130, 131, 132, 133, 134, 137, 138, 139, 140, 143, 144, 145, 148, 149, 152, 158, 159, 160, 163, 164, 167, 173, 174, 177, 183, 193, 194, 197, 203, 213, 228, 257, 258, 259, 260, 261
OFFSET
1,1
COMMENTS
Numbers n for which A004001(n-1) < A004001(n) < A004001(n+1).
LINKS
FORMULA
a(n) = A188163(A088359(n)) = A088359(A088359(n)-1) = A188163(A188163(1+n)).
Other identities. For all n >= 1:
A004001(a(n)) = A088359(n).
PROG
(Scheme, two variants)
(define (A266399 n) (A088359 (- (A088359 n) 1)))
(define A266399 (MATCHING-POS 1 2 (lambda (n) (< (A004001 (- n 1)) (A004001 n) (A004001 (+ n 1)))))) ;; This one requires Antti Karttunen's IntSeq-library
CROSSREFS
Cf. A004001.
Subsequence of A088359 and A188163.
Cf. also A266188.
Sequence in context: A282757 A199718 A155470 * A351205 A164709 A212314
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 18 2016
STATUS
approved